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1. ABSTRACT 



THIS PROGRAn IS INTENDED TO TEST ALL OF THE BASIC 
FUNCTIONAL LEVEL OPERATIONS OP THE THOZ/TUAS NAG 
TAPE SYSTEM. ALL FUNCTIONS; WRITE. READ, SPACE, 
:RASE, REWIND. ETC: WILL BE TESTED. IN ADDITION TO THE 
TH02/TUA5 TESTS. THE RH WILL BE TESTED SEPARATELY IN 
SO FAR AS IT IS POSSIBLE TO SEPARATE THE RH FROM THE 
TN02/TU45 ITSELF. 

2. REQUIREnENTS (HARDWARE) 



A. ANY PDP-11 PROCESSOR 

a. SIC OF CORE 

C. CONSOLE TTY 

D. TN02 MAGTAPE CONTROLLER 

E. MASS BUS CONTROLLER 

F. TU4S HAG TAPE TRANSPORT 

LOADING PROCEEDURE 



USE STANDARD BINARY LOADING PROCEEDURE 
STARTING PROCEEDURE 



THERE ARE TWO (2) STARTING ADDRESSES THAT HAYBE USED: 200(8) AND 210(8) 

A. 200(8): STARTING AT THIS ADDRESS WILL CAUSE THE PROGRAM 

IDENTIFICATION TO BE PRINTED FOLLOWED BY 
REQUESTS FOR THE VARIOUS PARAMETERS NEEDED 
BY THE PROGRAM. 

B. 210(8): THIS ADDRESS IS INTENDED FOR USE AS A RESTART ONLY 

AND WILL USE THE CURRENT PARAMETER VALUES. 

4.1 SAMPLE START AT 200(8): OPERATOR RESPONSES ARE IN PARENS. 

TM02-TU45 BASIC FUNCTION TEST 
ENTER CONDITIONS IN OCTAL 

REGISTER START: 172440 (CR) 

VECTOR: 224 (CR) 

DRIVE NUMBER: 0 (3) 

SLAVE NUMBER: 0 (6) SERIAL NO: 200 

RH11 OR RH70: (0) 

RH ONLY: (0) 

NRZ ONLY: (1) 

THIS EXAMPLE SLOWS THE PROGRAM START USING THE RH11 
ADDRESS (CS1) OF 172440, AN INTERRUPT VECTOR OF 224, 
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DRIVE NUMBER 3. AND SLAVE NUMBER 6, NRZ ONLY. 
NOTE THAT THE CURRENT VALUES FOR EACH PARAMETER IS 
PRINTED AND MAY OR NOT BE CHANGED. 
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5. CONSOLE SWITCH SETTING 



ALL SWITCHES EXCEPT 5-9 ARE USED AND THE NORMAL, OR DEFAULT, 
RUN IS DONE WITH ALL SWITCHES SET TO ZERO (0). 

ALL SWITCHES ARE DYNAMIC. AND HAY BE CHANGED AT ANY TIHE, ASSUMING 
A CONSOLE SWITCH REGISTER IS PRESENT. IF A CONSOLE SWITCH 
REGISTER IS NOT PRESENT. THE SWITCHES ARE NOT DYNAMIC AND 
nUST BE SET BEFORE STARTING. USING THE FOLLOWING PROCEDURE: 

A) LOAD ADDRESS 636(8) LABELLED "SWR" 

B) DEPOSIT THE VALUE 176(8) 

C) LOAD ADDRESS 176(8) 

D) DEPOSIT THE DESIRED SWITCH VALUE. 



SW15: 


1=HALT ON ERROR 




0=CONTINUE 


SWU: 


1=LO0P ON ERROR (SCOPE) 




0=CONTINUE 


SW13: 


1=D0 NOT PRINT ERRORS 




0=PRINT ALL ERRORS 


SW12: 


1=INHIBIT ITERATION 




0=DO ALL ITERATIONS PER TEST 


SW11: 


1=C0NTINU0US CYCLE 




0=HALT AT END Of PASS 


SWIG: 


1=HALT AT END OF CURRENT TEST 




0=CONTNUE 


SW9-5 : 


N/A 


SW4-0: 


SELECT TEST NUMBER: :00=ALL TESTS 



THE USE OF SWO-4 IS TO ALLOW SELECTION AND CONTINUOUS 
EXECUTION OF ANY TEST. THE TEST SELECTION HAY BE CHANGED AT 
ANY TIME. HOWEVER IT IS ADVISABLE TO USE SWIG TO STOP THE 
PROGRAM AT THE END OF THE CURRENT TEST BEFORE CHANGING NUMBER. 
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6. ERROR PRINTOUTS 



THE ERROR PRINTOUTS FOR EACH TEST WILL APPEAR IN THE SAME 

GENERAL FORMAT. THE FIRST LINE WILL ALWAYS SHOW THE TEST NUMBER AND ITS 

TITLE. THE SECOND LINE WILL BE AN EXPLANATION OF THE ERROR. THE 

FOLLOWING LINES WILL SHOW THE APPROPRIATE REGISTER OR ADDRESS 

VALUES THAT ARE APPLICABLE TO THE INDIVIDUAL TEST 

EXAMPLES: 

1. THIS EXAMPLE SHOWS A TYPICAL ERROR PRINTOUT FOR THE WRITE 
READ TEST: A WRITE CRC ERROk OCCURRED ON SLAVE 6. 

FT13: WRITE-READ TEST 
WRITE ERROR NRZ 

CS1 WC BA FC CS2 DS ER TC 

144260 000000 015650 000000 000103 150600 100000 101306 

2. THIS EXAMPLE SHOWS A TYPICAL SPACE ERROR: 

THE FC IS NOT ZERO AT THE END OF THE OPERATION. 

FT14:SPACE TEST 

SPACE REVERSE ERROR NRZ 

CS1 WC BA FC CS2 DS ER TC 

144230 177700 017162 177740 000114 150600 001000 161700 

3. THIS EXAMPLE SHOWS A SPACE OPERATION WHICH RESULTED IN 
INCORRECT POSITIONING. SHOULD BE AT RECORD 20, IS AT RECORD 22. 



FT14: SPACE TEST 

POSITION ERROR: 

REVERSE ERROR EXPT:20 RCVD:22 
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SEO 0007 



7. 



OPERATION 



THE PROCEEDURES FOR OPERATING THIS PROGRAM ARE QUITE SIMPLE 
AND REQUIRE ONLY A FEU STEP: 

1. LOAD ADDRESS 200 OR 210 

2. SET SWITCHES FOR DESIRED TEST CYCLE 

3. PRESS START 

a! ENTER APPROPRIATE RESPONES TO THE TTY REQUESTS 

ALL CONSOLE SWITCHES ARE DYNAMIC AND MAY BE CHANGED AT ANY 
TIME. THE NORMAL, OR DEFAULT. OPERATING SEQUENCE IS ALL 
SWITCHES DOWN (ZERO). THE END OF EACH PASS IS NOTED BY A 
MESSAGE STATING END OF PASS AND THE NUMBER OF THAT PASS. 

SINGLE TEST SELECTION: (SU0-SU4) 

WHEN SWO-4 ARE SET TO ZERO (00) THE SCHEDULAR WILL 
EXECUTE ALL OF THE TESTS IN SEQUENCE (1-24). IF SWO-4 IS 
SET TO SOME SPECIFIC TEST NUMBER (1-24) THAT PARTICULAR TEST 
WILL BE EXECUTED CONTINUOUSLY. ANY TEST MAY BE SINGLE 
SELECTED IN ANY ORDER: HOWEVER, THE BEST WAV TO AFFECT 
THE CHANGE IS TO USE SU10 TO HALT THE CURRENT TEST, THEN 
CHANGE NUMBER AND PRESS CONTINUE. 

RHII OR RH70 OPTION: 

A ONE RESPONSE IS FOR THE RH70; 
A ZERO RESPONSE IS FOR THE RH11 . 

RH ONLY OPTION: 

BY RESPONDING TO THE REQUEST (RH ONLY: ) WITH 
A ONE (1). ONLY THE TESTS WHICH ARE POINTED TO 
THE RH (TESTS 1 - 10) WILL BE EXECUTED IN 
EACH PASS. 
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8. TEST DESCRIPTION 



THE FOLLOWING IS A LIST OF ALL TESTS IN THEIR PROPER SEQUENCE. 

A BASIC DESCRIPTION OF EACH TEST IS PROVIDED TO AID IN UNDERSTANDING 

OF THE ERROR MESSAGES ASSOCIATED WITH EACH ONE. 

A. RH TESTS: THE FIRST TEN (10) TESTS WILL PERFORM BASIC RH 

OPERATIONS AS FAR AS IS POSSIBLE WITHOUT REQUIRING 
THE Tn02/TU4S ITSELF. (SEE RH ONLY OPTION; PAR 7) 

FT1: RH ADDRESSING: THIS TEST WILL ASSURE THAT THE 

RH WILL RESPOND WITHOUT CAUSING A BUS 
TRAP TO ALL THO? REGISTER ADDRESS 
IN SEQUENCE STARTING AT THE ADDRESS 
OF CS1 ENTERED BY THE OPERATOR. 

FT2: RH REGISTER BITS READ/WRITE: THIS TEST WILL ASSURE THAT 

ALL BITS OF THE RH WRITE/READ REGISTERS 
CAN BE SET AND RESET. 

FT3: RH INITIALIZE: THIS TEST WILL ASSURE THAT A RH INITIALIZE 

(BIT 5 OF CS2=1) WILL INDEED CLEAR 
THE RH ERRORS. 

* FT4: SILO TES' 1: THIS TEST UIU ASSURE THAT A READ FROM 

AN EHPTY SILO UILL CAUSE DLT TO SET. 

* FT5: SILO TEST 2: THIS TEST UILL ASSURE THAT BOTH THE 

IR AND OR BITS UILL CORRECTLY RESPOND 
TO LOADING OF THE SILO WITH ALL ZEROS 
AND THEN A UORD OF ALL ONES. 

* FT6: SILO TEST 3: THIS TEST UILL URITE AND THEN READ 

THE ENTIRE SILO TO ASSURE THAT DATA CAN 
BE PROPERLY FILLED AND READ. ALSO THE 
PROPER STATUS OF IR AND OR ARE CHECKED. 

* FT7: SILO TEST 4: THIS TEST UILL ASSURE PROPER RH11 

RESPONSE TO SILO OVERFLOW. 

* FTIO: SILO TEST 5: THIS TEST UILL ASSURE SILO RESET 

BY RH11 INITIALIZE. 



NOTE: SILO TESTS (FT4-FT10) ARE FOR THE RHil ONLY. 
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B. Tn02/TU45 BASIC FUNCTIONS: THE FOLLOUING FOURTEEN (U) 

TESTS WILL ASSURE OPERATION OF THE 
HAG TAPE BASIC FUNCTIONS. 



FTll: NOP TEST: 



THIS TEST WILL ASSURE THAT THE NOP 
FUNCTION EXECUTES WITH NO ERROR. 



FT12: REWIND TEST: 



THIS TEST WILL ASSURE THAI THE REWIND 
FUNCTION WILL POSITION THE TAPE TO 
BOT WITH NO ERROR. 



1. ISSUE A REWIND COHRAND 

2. AWAIi PIP RESET (MOTION STOPPED) 

3. ASSURE THAT NO ERROR OCCURED 
A. END 



FT13: WRITE/READ TEST 



THIS TEST WILL ASSURE THAT 

THE UNIT UNDER TEST CAN WRITE AND 

READ IN ALL DENSITIES (FOR BOTH PE AND NRZ). 



1. REWIND TO BOT 

2. WRITE 100 RECORDS 

A, ALL ONES DATA 

B, 200 FRAMES 

C, 200 BPI: ODD 

3. CHECK FOR ERRORS ON EACH RECORD 

A. READ REVERSE THEN FORWARD ALL 100 RECORDS 

5. CHECK FOR ERRORS ON EACH RECORD 

6. REPEAT STEPS 2 THRU 5 FOR 556,800,1600 BPI 

7. END. 

DATA RELATED ERRORS (PARITY ERROR, CRC ERROR, ETC) ARE IGNORED. THE ACTUAL 
DATA READ IS NOT CHECKED; ONLY THE FUNCTION IS TESTED, NOT THE MEDIUM. 



POSITIONING IS MAINTAINED BY BOTH 
SPACE FORWARD AND REVERSE. 

1. REWIND TO BOT 

2. WRITE 100 RECORDS 

A. EACH RECORD IS ONE FRAME LARGER THAN THE LAST. 

THIS WILL ALLOW FOR POSITION CHECKING BY RECORD SIZE. 

3. EACH RECORD IS ERROR CHECKED. 

4. DATA RELATED ERRORS ARE IGNORED. 

5. NOW SPACE REVERSE 77 RECORDS AND 
READ REVERSE 1, THE FRAME COUNT 
SHOULD BE 100. 

THIS IS THE SIZE OF THE FIRST RECORD. 

6. NOW SPACE FORWARD 76 RECORDS AND READ 
FORWARD 1, THE FRAME COUNT SHOULD BE 177. 
THIS IS THE SIZE OF THE NEXT TO LAST RECORD. 

7. CONTINUE THE SPACE AND READ (DECREMENTING THE RECORD COUNT EACH TIME) 
UNTIL ALL POSITIONS HAVE BEEN CHECKED. IF POSITION IS LOST; TEST ENDS. 

8. REPEAT STEPS 1 THRU 7 FOR PE. 



FTU: SPACE TEST: 



THIS TEST WILL ASSURE THAT PROPER 
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9. END 
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SEO 0011 


(PAGE 7) 




FT15: ERASE TEST: THIS TEST WILL ASSURE THAT THE ERASE 

FUNCTION WILL INDEED ERASE TAPES. 




1. REWIND TO BOT 

2. ISSUE 200 ERRASE COMMANDS. 

3. ASSURE NO ERRORS FOR EACH CONNAND. 

4. REWIND TO BOT. 

5. ISSUE A READ FORWARD COMMAND. 

6. THE TAPE SHOULD MOVE FORWARD UNTIL 
STOPPED BY OPI (APPROX 25 FT). 

7. ASSURE NO ERRORS OTHER THAN OPI. 

8. END 




FT16: TAPE HARK WRITE/READ: THIS TEST WILL ASSURE THAT 

A TAPE MARK CAN BE WRITTEN AND READ 
IN BOTH PE AND NRZ. 




1. REWIND TO BOT. 

2. ISSUE A WRITE TAPE NARK COMMAND. 

3. ASSURE NO ERRORS. 

4. ASSURE THAT TAPE NARK STATUS IS SET 
IN DRIVE STATUS (BIT 2). 

5. READ REVERSE. 

6. ASSURE THAT TAPE NARK IS SET. 

7. ASSURE THAT NO ERRORS OTHER THAN FCE OCCURED. 

8. READ FORWARD. 

9. REPEAT STEPS 6 AND 7 

10. REPEAT STEPS 1 THRU 9 FOR PE. 

11. END 




FT17: TAPE NARK SPACf TEST: THIS TEST WILL ASSURE THAT 

SPACING WILL BE TERNINATED BY RECOGNITION 
OF TAPE NARK BOTH IN PE AND NRZ. 




1. REWIND TO BOT. 

2. WRITE THE FOLLOWING PATTERN OF 
TAPE NARKS AND DATA RECORDS: 




TM:20 RECS:TN:40 RECS:TN:60 RECS:TN:100 RECSiTN: 




3. ASSURE NO ERRORS. 

4. ' ASSURE THAT TAPe'nARK STATUS IS SET FOR TN WRITE i. 

5. NOW SPACE REVERSE 200 RECORDS. 

6. THE SPACE OPERATION SHOULD STOP ON EACH 
TAPE NARK IT FINDS. THEREFOR 5 SPACE 
COMMANDS ARE ISSUED TO COVER THE ENTIRE 
PATTERN WRITTEN ON TAPE. 

BOT SHOULD NEVER BE REACHED AND THE 
FRAME COUNT WILL REFELCT 
THE NUMBER OF RECORDS BETWEEN 
TAPE NARKS. 

7. REPEAT STEP 6 IN THE FORWARD DIRECTION. 

8. ASSURE NO ERRORS OTHER THAN FCE. 

9. REPEAT STEPS 1 THRU 8 FOR PE 
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FT20: WRITE CHECK TEST: BOTH WRITE CHECK FORWARD AND REVERSE ARE 

TESTED IN BOTH PE AND NRZ. 

1. REWIND TO BOT. 

2. WRITE A AGO FRAME RECORD USING DATA 
PATTERN 3 (125125). 

3. ASSURE NO ERRORS OCCURED. 

A. ISSUE A REVERSE WRITE CHECK COHNAND. 

5. ASSURE NO ERRORS OCCURED. 

6. REPEAT STEP 5 FOR A FORWARD WRITE CHECK. 

7. REPEAT STEPS 1 THRU 6 FOR PE. 

8. END 

FT2l: ERASE HEAD TEST: THIS TEST WILL ASSURE THAT THE 

ERASE HEAD ITSELF IS OPERATING. 

1. REWIND TO BOT. 

2. WRITE 2 RECORDS OF 800(10) FRAMES 
EACH. EACH RECORD WILL BE 1 INCH 
OF TAPE. DATA IS NOT ALL ONES. 

3. REWIND TO BOT. 

A. NOW WRITE A AGOdO) FRAME RECORD. 
THIS RECORD WILL BE ONE HALF 
INCH OF TAPE. THE ERASE HEAD 
SHOULD CLEAR THE REMAINDER OF THE 
FIRST RECORD (ONE HALF INCH). 

b. REWIND TO BOT. 

6. NOW READ THE SHORT FIRST RECORD. 
IT SHOULD BE AGG(IO) FRAMES. 

7. NOW READ THE SECOND RECORD. 
IT SHOULD BE STILL 800(10) 
FRAMES. 

8. IF THE SECOND RECORD IS TOO LONG, 
THE ERASE HEAD DID NOT FUNCTION OR 
IT IS IN THE WRONG POLARITY. 

10. END 



FT22: BUFFEHED COMMAND: THIS TEST WILL ASSURE THAT THE 

TM02 WILL ACCEPT AND EXECUTE ANOTHER 

COMMAND WHILE ITS SELECTED SLAVE IS REWINDING. 

1. REWIND TO BOT. 

2. ISSUE 3 LONG WRITE COMMANDS TO ASSURE 
BEING OFF BOT. 

3. ISSUE A REWIND COMMAND. 

A. AS SOON AS DRIVE READY BECOMES SET, 
ISSUE ANOTHER WRITE COMMAND. 

5. THE NEXT DRIVE READY SHOULD BE AFTER THE 
TAPE HAS REACHED BOT AND EXECUTED THE 
BUFFERED WRITE COMMAND. 

6. ASSURE NO ERRORS OCCURED. 

7. END 
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FT23: READ IN PRESET: THIS TEST WILL ASSURE THAT UNIT 0 

IS REWOUND AND SET TO 800 BPI NORMAL. 
(ONLY IF SLAVE 0 IS SELECTED). 

1. ISSUE A WRITE COMMAND TO ASSURE 
BEING OFF BOT. 

2. ISSUE THE READ-IN PRESET COMMAND. 

3. AWAIT MOTION STOP. 

A. ASSURE THAT BOT WAS REACHED. 

5. ASSURE THAT THE TAPE CONTROL REGISTER 
IS SET TO 800 BPI, NORMAL, ODD. 

6. END 

(THIS TEST IS ONLY PERFORMED IF THE SELECTED SLAVE IS ZERO (0). 

FT2<>: REWIND: OFF LINE THIS TEST WILL ASSURE 

THAT THE UNIT WILL REWIND AND 

GO OFF LINE. (NOT IF IN CONTINUOUS CYCLE) 

1. ISSUE THE REWIND OFF-LINE COMMAND. 

2. ASSURE THAT MOL (BIT 12 OF DRIVE STATUS) 

IS RESET INDICATING THE UNIT WENT OFF LINE. 

3. END 

(THIS TEST IS NOT PERFORMED WHEN CONTINUOUS CYCLE OPERATION IS SELECTED: SW 11 = 1) 
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SEQA0C.BIN 

.TITLE TH02/TU45 BASIC FUNCTION TEST 
CZTUJAO 
25 HAY 78 

R. BARNES/R. J. COLLINS 
.ENABL ABS 



SEQ 0016 



CONSOLE SWITCHES^ 



SUIS 



UHALT ON ERROR 
0=CONTINUE 
SUU: 1 SLOOP ON ERROR (SCOPE) 

0=CONTINUE 
SU13: 1=D0 NOT PRINT ERRORS 

0=PRINT ERRORS 
SU12: 1=INHIBIT ITERATIONS 

0=00 ITERATIONS 
SWll: 1=C0NTINU0US CYCLE 

0=HALT AT END OF PASS 
SWIO: 1=HALT AT END OF EACH TEST 

0=CONTINUE 
SUO-4: SELECT TEST NUMBER 



00=ALL TESTS 
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509 

510 

511 

512 

513 

5U 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

523 

529 

530 

531 

532 

533 

53A 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 
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SEO 0017 



;TU45 REGISTER BITS< 



;CS1: 

;UC: 

:BA: 

;FC: 

;CS2: 

:DS: 

:ER: 

;ATS: 

;CC: 

;DB: 

.MR: 

;DT: 

:SN: 

;TC: 



15 ;14 ;13 ;12 ;11 ;10 ;09 .08 .07 ;06 ;05 ;04 ;03 ;02 ;01 ;00 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxyxxxxxxxxxxxxxxxx 

SC ;TRE:HCP;SPR;DNA;PSL;A17;A16;RDY;IE ; FUN; FUN; FUN; FUN; FUN; 60 

xxxhxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxuxxxxxxx^ 

WORD 
COUNT 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

BUS 

ADDRESS 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

FRAHE 

COUNT 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

DLT;UCE;UPE;NE0;NEH;P6E;HXF;HDP;0R ;IR ;CLR;PAT;BAI;U2 ;U1 ;U0 

xxxxxxxxxxxxxxxxxxxhxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx^ 

ATA:ERR:PIP;nOL;URL;EOT;SPR;DPR;DRY;SSC:PES;SDN;IDB;TflK;BOT;SLA 

xxxxxxxxxxxxxxxxxxxxxxxhxxxxxxxxxxxxxxxxxxmxxxxxm 

CDE;UNS;OPI;DTE;NEF;CS ;FCE;NSG;PEF;INC;DAT;F«T;C»IT;R«R;ILR; ILF 
CRC; ; ; ; ;ITH; ; ;LRC;VP£;BPE; ;BPE; ; ; 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

ATTENTION 
SUMMARY 

xxxxxxxxxxxxxxxxxxxxxvxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

CHECK 
CHARACTER 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

DATA 
BUFFER 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXaXXXXXXXXXXXXXXXXXXXXXXX 
DB ;DB ;DB ;DB ;0B ;DB ;DB ;DB ;DB ;URT;m ;0P :0P ;0P :0P ;W1 

0 ; 1 ; 2 ; 3 ; 4 ; 5 ; 6 ; 7 ; P ;CLK;CLK; 4 ; 3 ; 2 ; 1 ;60 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

DRIVE ; 7 ; ;SLV; 
TYPE ;CH ; ;PR ; 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

SERIAL 
NUMBER 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

ACL;FCS;TCU;ENA;SPR;DEN:DEN:DEN:FnT;FMT:FMT;FnT;EVN;SSN;SSN;SSN 
; ; ;DT ; ; 4 ; 2 ; 1 ; 8 ; 4 ; 2 ; 1 ;PAR; 4 ; 2 ; 1 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
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SEQ U018 


555 








.'REGISTER EUUIVS********** 




556 










557 




000000 




n A ar A 

R0=Z0 




558 




000001 




R1 =X1 




559 




000002 




R2=12 




560 




A A A 9 

000003 




R3=Z3 




561 




000004 




R4=X4 




562 




A AAA A f 

000005 




A C_W C 

R5=Z5 




563 




000006 




SP=X6 




564 




A A A A A^ 

000007 




PC=X7 




r d. r 

565 












566 












56^ 












568 




A A A A#l A 

000000 




_ A 

.=0 




569 




A A A A A 

000200 




APAT ^AA 

.REPT 200 




570 








.♦2 




571 








HALT 




572 








.ENDR 




C 7 V 

573 












574 












575 












576 




A AA A^ A 

000060 




_Z A 

.=60 




577 


A A A A^ A 

000060 


A4 ^AAy 

012004 




TTINT ;TTY INTERRUPT HEADER ADDRESS 




578 


AAAA^ ^ 

000062 


AA AA AA 

000000 




A 

0 




579 












P O A 

580 












58 1 












58? 




AAA^ AA 

000200 




_ A AA 

.=200 




COT 

583 


A AA 1 AA 

000200 


AAC AAA 

005000 




CLR RO 




coy 

584 


000202 


AAA1 ^7 

000167 


001372 


JHP START .'PROGRAn START 




c o e 
585 












C O ^ 

586 




A A A n 1 A 

000210 




.=210 




C 07 


AAA ^ 1 A 
OOU^ 1 0 


000240 




NOP 




COO 

588 


AAA O 

000212 


A 4 0 7AA 

012700 


000001 


nOV ffl.RO ;SET NO HEADER FLAG 




COO 

589 


AAA^I d. 

000216 


AAA 4 d. 7 

000167 


001356 


IMA ^TAAT 

JHP START 




590 












591 












592 












593 




000224 




.=224 




594 


000224 


011770 




HTINT :TAPE INTERRUPT HANDLER ADDRESS 




595 


000226 


000340 




340 




596 
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597 














598 




000600 






.=600 




599 












600 














601 


0U0600 


1 Tit i A 


CI 




172440 




602 


AAA/ A^ 


1 79/ / 9 
1 f 


UC 




172442 




603 


AAAZ.A/ 


1 TiLLL 


BA 




172444 




60A 


UUUoUo 


1 TiLLI^ 
1 1 CHHO 


fC 




172446 




605 


AAAiL 1 A 


1 79/ C A 

1 ( chjO 


CS 




1 79^^n 




606 


AAAiLI ? 
OOOO 1 C 


1 79Z.C9 
1 /^CH3£ 


OS 




172452 




607 


OUOoIh 


1 

1 f ch3^ 


ER 




172454 




608 


000616 


172456 


AS 




172456 




609 


000620 


172460 


CC 




172460 




01 u 


A AAA 9? 


1 f CHOC 


KB 




172462 




611 


00062A 


1 72464 


MR 




172464 




612 


UUUocO 


1 79/ AA 
1 CHOO 


OT 




172466 




613 


AAAATA 


1 79/. 7n 


SN 




172470 




6U 




1 79/79 
\l Chi C 


TC 




172472 




615 
616 














617 














618 


A AAA 7/ 


1 7777A 


PSU: 


177776 


■PROCESSOR STATUS 


619 


UUUO jO 


1 f f 9 f U 


SUR: 


177570 


SWITCH REGISTER 


620 


UOUOhU 


1 f r 90U 


TKS: 


177560 


■TTY READER STATUS 


621 




1 77^*9 
1 1 fJOC 


TKB: 


177562 


■TTY READ BUFFER 


622 


UUUO"iH 


1 77^*/ 
1 f f 90H 


TPS: 


177564 


-TTY PUNCH STATUS 


623 


llUVO*lO 


1 r r 900 


TPS: 


177566 


;TTY PUNCH BUFFER 


62A 


000650 


177777 


SERNUH: 


177777 


■SERIAL NUHBER 


625 


000652 


00001 1 


ORVTP: 


Oil 


lORIVE TYPE 


626 


000654 


000010 


ITA«T: 


10 


; ITERATION AIHHJNT 


627 


000656 


000224 


VECT: 


224 


; INTERRUPT VECTOR(RH) 


628 


000660 


172440 


REGS: 


172440 


; STARTING REGISTER ADDRESS 


629 


000662 


000004 


BTRP: 


4 


;BUS trap address 


630 


000664 


000006 


BTRP2: 


6 


;BUS TRAP PRIORITY LEVEL 7 













H 2 




TM02/TU45 BASIC 


FUNCTION TEST 


HACY11 30(1046) 13-JUN-78 13:49 PAGE 20 




CZTUJA.Pll 07-JUN-78 16:58 








^ r /\ A A ^ A 

SEQ 0020 


631 














632 














633 


000666 


A A A A A A 

000000 


TOB: 




0 




634 


000670 


A A A A A A 

000000 


TIB: 




0 




635 


000672 


A A A A A A 

000000 


RH17F 


0 




636 


000674 


A A A A A A 

000000 


HDRFL 


0 




637 


000676 


A A A A A A 

000000 


EHADDR: 0 




638 


000700 


A A A A A A 

000000 


DRVN 




0 




639 


000702 


AA AAAA 

000000 


SI.VN: 


0 




640 


000704 


A A A A A A 

000000 


BADDR 


0 




641 


000706 


A AAA A A 

000000 


FCNT 




0 




642 


A A A74 A 

000710 


AAA AAA 

000000 


UCNT 




0 




643 


AAA^4 ^ 

000712 


A A A AAA 

000000 


RCNT 




0 




644 


000714 


AAA AAA 

000000 


ERRP 




0 




645 


A A A? 4 A 

000716 


AAA AAA 

000000 


ERRPi 




0 




did 

646 


000720 


A A A A A A 

000000 


RRO: 




0 




647 


AAA?*) 

000722 


AAAAAA 

000000 


RFD: 




0 




648 


AAA71/ 

000724 


AAAAAA 

000000 


RDYDX 


0 






AAA^'^Z 

000726 


AAAAAA 

000000 


OPDYX 


0 






AAA'7T A 

000730 


AAAAAA 

000000 


SCNT 




0 




651 


A A A'^T *^ 

000732 


AAAAAA 

000000 


PFL6 




0 




652 


A AA'7T y 

000734 


AAAAAA 

000000 


RTRN 




0 




Z C 7 

653 


AAA 

000736 


AAAAAA 

000000 


ERADD 


0 




654 


AAA? y A 

000740 


AAAAAA 

000000 


TEMPI 


0 




^ c c 
655 


AAA"?/ 1 

000742 


AAAAAA 

000000 


TEHP2 


0 




656 


AAA?/ / 


AAAAAA 

000000 


TEHP3 


0 




657 


AAA?/ ^ 

000746 


AAAAAA 

000000 


STHSK 


0 




^ CO 

658 


AAA?C A 

000750 


AAAAAA 

000000 


ITCNT 


0 




659 


AAA7C O 

000752 


AAAAAA 

000000 


OSAV 




0 




660 


AAA?C/ 

000754 


AAAAAA 

000000 


SAV1 




0 




d d ^ 

661 


000756 


AAAAAA 

000000 


SAV2 




0 




662 


AAA7X.A 

000760 


AAAAAA 

000000 


SAV3 




0 




663 


AAA7X. 1 

000762 


AAAAAA 

000000 


SCOLP 


0 




664 


AAA7^/ 

000^64 


AAAAAA 

000000 


ITRLP 


0 




665 


AAA7XX. 

000766 


AAAAAA 

000000 


EXFL 




0 




666 


AAA??A 

000770 


AAAAAA 

000000 


PEXFL 


0 




667 


AAA??1 

000772 


AAAAAA 

000000 


STFL6 


0 




668 


AAA?? / 

000774 


AAAAAA 

000000 


LTAOO 


0 




669 


AAA??^ 
OOOf ft 


AAAAAA 

000000 


FUN: 




0 




6r0 


,^Ai AAA 
00 1000 


AAAAAA 

000000 


SERFL 


0 




671 


AA1 AA1 

001002 


AAAAAA 

000000 


CRCNT 


0 




L.Ti 

bfc 


AA1 AA/. 

0UIUQ4 


AAAAAA 

000000 


UDES 




0 




6r J 


AAi AAA 


AAAAAA 

000000 


PATRN 


0 




674 


AA1 A1 A 
001010 


AAAAAA 

000000 


RHTF 




0 




6r3 


AAi Ai O 

001 01 £ 


AAAAAA 

000000 


NRZOF 


0 




6r6 


AAi AI / 
001014 


AAAAAA 

000000 


RHOF 




0 




or f 


AAI AI A 
UOlOlO 


AAAAAA 

000000 


PCNTR 


0 




OfO 














679 










.DATA PATTERN GENERATORS***** 




680 














681 


001020 


000000 


DAT6L 


0 




682 


A A 4 A ^ ^ 

001022 


A 4 4 r r ^ 

011552 


DATAO 


DAT1 ;ALL ONE BITS 




683 


001024 


011574 


DATA1 


DAT2 ;ALL ZERO BITS 




684 


001026 


011602 


DATA2 


: DAT3 .ALTERNATING ONE/ZERO BITS 




685 


001030 


011612 


DATA3 


• DAT4 .ALL BITS 0-377 





I 2 
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686 








687 






;L0G1 


688 








689 


001032 


000000 


TSTTBL: 0 


690 


001034 


000000 


0 


691 


001036 


002700 


FT1 


692 


001040 


002700 


FT1 


603 


001042 


003000 


FT2 


694 


001044 


003000 


FT2 


695 


001046 


003324 


FT3 


696 


001050 


003324 


FT3 


697 


001052 


003542 


FT4 


698 


001054 


003542 


FT4 


699 


001056 


003670 


FT5 


700 


001060 


003670 


FT5 


701 


001062 


004072 


FT6 


702 


001064 


004072 


FT6 


703 


001066 


004354 


FT7 


704 


001070 


004354 


FT7 


705 


00''072 


004450 


FT10 


706 


001074 


004450 


FT10 


707 


001076 


004604 


FT11 


708 


001100 


004604 


FT11 


709 


001102 


004722 


FT12 


710 


001 1 04 


004722 


FT12 


711 


001106 


005034 


FT13 


712 


001110 


005034 


FT13 


713 


001112 


005374 


FT14 


714 


001114 


005374 


FT14 


715 


001116 


006264 


FT15 


716 


001120 


006264 


FT15 


717 


001122 


006464 


FT16 


718 


001124 


006464 


FT16 


719 


001126 


006726 


FT17 


720 


001130 


006726 


FT17 


721 


001132 


007342 


FT20 


722 


001134 


007342 


FT20 


723 


001 1 36 


007602 


FT21 


724 


001140 


007602 


FT21 


725 


001142 


010104 


FT22 


726 


001144 


010104 


FT22 


727 


001146 


010304 


FT23 


728 


001 1 50 


010504 


FT23 


729 


001152 


010524 


FT24 


730 


001154 


010524 


FT24 


731 


001 1 56 


000000 


0 


732 


001160 


000000 


0 


733 


001162 


000000 


0 


734 


001164 


000000 


0 
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ccQ nnoo 


755 




nn^ t^nn 
UU 1 OUU 








.=1600 








736 
737 












.•PROGRAM START AND HOUSEKEEPING********** 




738 


om Ann 


nnnoLn 

UUUc*iU 








unp 








739 


nni f^no 

UU 1 OUc 


ni 5777 


000340 


1 7707A 




nu V 




•CFT PRinPITV 
. dC 1 r n i Un 1 1 1 




7A0 


nni A1 n 

UU 1 0 1 u 


ni ?7nA 
U 1 c r uo 


000500 






Mnu 

nu V 


«S00 ^P 

w JUU « 






741 


UU 1 0 1 *• 


UU3 r UU 








T^T 


RO 

nU 


•CFF IF PRIMT UFADFR 
.dec ir rnini ncm/cn 




7A2 


Ul. 10 10 


UU 1 *iUc 








DC V 




•IF ^0- RR 
. 1 r ou • on 




7A3 


UU 1 OcU 


nnni A7 

UUU 1 O ' 


000562 






IMP 

J rir 




•CI cc crip 




744 


nn^fkOL 

UU lOcH 


01 770^ 
U 1 c r UH 


013252 




d 1 UA • 


nil V 


#H^G3 R4 






745 


Uw 1 OjU 


no^7A7 

UU*» r O f 


010532 






J on 


Pr TTDUT 

r V # 1 ■ Uv 1 


•PRINT TITIF 




746 


UU 1 0 J*l 


01 770^ 
U 1 c f U«» 


013357 




9 1 UO • 


nuv 


#H^G4 R4 

irnav*t g n*t 






747 


UU 1 o*tu 


00^7^7 

UUH tot 


010522 






%i on 


Pf TTQUT 

r L « 1 1 UU t 


■RFOUF^T RF6ISTFR ADDRF^^ 

«nL«vLji ffikviiJikn ni/i/ntJJ 




748 


UU 1 OHH 


01 A70^ 


177010 






MOU 

nu w 


RFG$ R^ 






749 


001 ASO 

UU 1 O jU 


\J\JH f O f 


010642 






U W rl 


PC ncTP 

r V #Uv 1 r 


•PRINT CURRFNT ADDRFSS 

«rnini wunnL.rai nwvn^^^ 




750 


001 AS£ 

WU 1 O J*t 


01P70S 
U 1 c r U J 


000660 






MOV 


ARFGS RS 

lrnL.UJ « 


•SFT ADDRFSS ^AVF 1 Of 




751 


001 AAO 
UU 1 oou 


017701 

U 1 C r U 1 


000006 






MOV 


#6 R1 

W U # rl 1 


•SFT SI7F OF RFSPONSF 




752 


wU 1 00*t 


017707 

U 1 £ f Uc 


177000 






MOV 

nu V 


#177000 R2 

w 1 r 1 VVVfllfc 


'SET UPPER LINIT 




753 


001 A70 

UU lOf u 


01770^ 

U 1 C r vj 


160000 






MOV 

nv V 


#160000 R3 


•SET LOWER LINIT 




754 


001 A74 

UU 1 0 r •» 




010230 








PC TTR 






755 


001700 


017704 


013402 






MOV 


#NSG5 R4 

wn«jvv f 






756 




00^7A7 


010456 








PC TTOUT 

> U « 1 1 UU 1 


•REQUEST VECTOR 




757 


rtfti7in 

VV 1 r 1 V 


01 A70^ 


176742 






MOV 

n V V 


VECT R3 






758 




004767 


010576 








PC OCTP 


•PRINT CURRENT VFCTOR 

^rnini kunnLni vLCiun 




759 


001 7P0 

UU 1 ' £U 


01P70S 


000656 






MOV 

nu w 




•SFT ADDRFSS ^AVF IOC 




760 


001 7P4 

UU 1 f c** 


01P701 


000003 






MOV 

nu V 


ftl 


•SFT OF RFSPOMSF 




761 


001 7^0 

UU 1 f .JU 


01?70P 


000224 






MOV 

nu » 


#224 R2 


•SET UPPER LINIT 




762 


0017^4 

UU 1 f J*t 


ni 57AT 

U 1 £ f V J 


000150 






NOV 

nu w 


#150 ft3 


•SET LOUER LINIT 




763 


001 740 

UU 1 r ••U 


Wt r W r 


010164 






JSR 


PC TTR 


*60 GET RESPONSE 

0 WW Wb 1 w> WrVwk 




764 


001744 

VV 1 f 


016700 

V 1 w r VV 


176706 






NOV 

nu w 


VECT RO 


;GET VECTOR 




765 


001 7S0 


017770 

V 1 C r c V 


011770 






NOV 

nu w 


#NTINT (RO)f 

wni Ani #^nv' • 


•LOAD INTERRUPT ADDRESS IN VECTOR 




766 


001 7S4 

VV 1 f J*t 


017710 

V 1 C f 'V 


000340 






NOV 

nu w 


#340 (RO) 


*LOAD PRIORITY 

«WOV rn*W"l» 1 




767 


001 760 

Uv 1 r uv 


016700 

V 1 w r VV 


176674 






NOV 

nu ¥ 


REGS RO 

n k V «9 0 n V 


•GET START OF REGS 




768 


001764 

VV 1 1 w*l 


017701 


000016 






MOV 

nu w 


#16 Rl 


•SET NUNBER OF REGS 




769 


001 770 

VV 1 f r V 


017707 

V 1 C f vC 


000600 






MOV 

nv w 


#C1 P2 


'GET START OF TABLE 

0 Wb ■ W 1 1 W> ■ n0kb 




770 


001774 

VV lift 


010077 

V 1 VVCC 






d 1 U • 


NOV 

nu T 


RO (R2)4' 


•BUILD TABLE 

0 WW A k V 1 nokb 




771 


001 77A 


067700 

\JvC 1 VV 


000002 






ADD 


#2 RO 


•BUHP ADDRESS 

9 wwnr nirvnbww 




772 


00?00? 

vvC vvC 


00S301 








DEC 


Rl 


•SEE IF DONE 




773 


007004 

vvC vv*t 


001^73 

VV i Jl J 








BNE 


STO 

1 V 


•IF NOT: BR 

f A ■ iW I * W** 




774 


00700A 

vvC vvU 


017707 


000666 






NOV 

nu w 


#TOB R2 

w 1 vw # n ^ 






775 


00?01? 

WC V 1 C 


017700 

V 1 C f V V 


000054 






NOV 

nu ¥ 


#54 RO 






776 


00?016 

VVC V 1 U 


00507? 

vC C 






^T1 • 


CLR 

V k n 


(R?)* 


•CLEAR FLAGS * COUNTERS 




777 


00?0?0 

vwC vC V 


005300 

VV J^vv 








DEC 

t/ w V 


RO 

r» V 






778 


00707? 

vvb VbC 


001375 

VV I Jt J 








BNE 


ST1 






779 


00?0?4 

vVC vet 


012767 


000001 


1767^6 




NOV 

nu w 


#1 RHTF 


•SET ADDRESS TEST FLAG 




780 


002032 

vvCv 


000167 

vvv 1 U f 


000376 






JNP 


TSRH 

1 i# n n 


•GO DO INITIAL ADDRESS TEST PASS 




781 


002036 

vvC V Jv 


017704 

V 1 C f v"l 


013463 






NOV 


#NSG10,R4 






782 


002042 

vvC vtC 


004767 

vv~ » w » 


010320 






JSR 


PC. TTOUT 


.•REQUEST DRIVE NUNBER 




783 


002046 

vvC v*f O 


017705 

V 1 C r V^ 


000700 






MOV 


lORVM RS 


•SFT ADDRESS OF DRIVF NUMBFR SAVE 




784 


002052 


012701 


000001 






NOV 


#1,R1 


.-SET SIZE OF RESPONSE 




785 


002056 


012702 


000007 






NOV 


#7.R2 


.•SET UPPER LIMIT 




786 


0090A9 
UUcUOc 


01 770X 

U 1 c r U J 


000000 






NOV 


fO.R3 


.-SET LOWER UNIT 




787 


002066 


004767 


010036 






JSR 


PC, TTR 


:G0 GET RESPONSE 




788 


002072 


012777 


000040 


176510 




NOV 


#40.acs 


;SET INIT 




789 


002100 


056777 


176574 


176502 




BIS 


DRVN.aCS 


.-SET DRIVE NUNBER 




790 


002106 


005777 


176466 






TST 


aci 


.ACCESS DRIVE 
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791 


002112 


AT 7 77 

032777 


010000 


176470 




BIT 


110000, aCS ;SEE IF NED 


792 


002120 


AA4 / AC 

001405 








BEQ 


ST2 ; 


IF NOT: BR 


793 


002122 


A4 ')7Ay 

012704 


014415 






nov 


«nSG41 ,R4 




794 


002126 


AAy 7^ 7 

004767 


010234 






JSR 


PC.TTOUT J 


PRINT NOT AVAIL 


795 


002132 


AAA7y 1 
OOOf 41 








BR 


ST1A ;REDO DRIVE REQUEST 


796 


AA^ IT/ 

002134 


A1 ^7Ay 

012704 


013503 




ST2: 


nov 


«nSG11,R4 




797 


002140 


AA/ 

004 fbf 


010222 






JSR 


PC.TTOUT 


REQUEST SLAVE NUnBER 


798 


AA^I / 1 

002144 


A^ ^"TAC 

012705 


000702 






nov 


«SLVN,R5 


SET ADDRESS OF SLAVE SAVE 


799 


AA^I CA 
002 1 30 


A1 07Ai 
012f 01 


000001 






nov 


#1.R1 


SET SIZE OF RESPONSE 


800 


0021 54 


A1 O^A*) 

012702 


000007 






nov 


#7.R2 


SET UPPER LiniT 


801 


AA'^l Z.A 


A1 07AT 

01 2 r 03 


000000 






nov 


10, R3 


SET LOWER LIMIT 


802 


002 1 Oh 


AA/ 7iL7 
OOh ftf 


007740 






JSR 


PCTTR 


GO GET RESPONSE 


803 


0021 f 0 


A1 5777 
01 2f f f 


000040 


176412 




nov 


«40,acs 


INIT 


804 


AA^i 

0021 f 0 


ACA777 


176476 


176404 




BIS 


DRVN.aCS 


SET DRIVE NUnBER 


80S 


00220h 


A1 Z.777 
OlOf f f 


176472 


176420 




nov 


SLVN,aTC 


LOAD SLAVE NUMBER 


806 


002212 


AT0777 
032 f f f 


002000 


176406 




BIT 


«2000,aDT 


SEE IF SLAVE PRESENT 


807 


AA333A 

UU222U 


AA1 AAC 
001003 








BNE 


ST3 


IF SO: BR 


808 


002222 


A1 07AZ 

01 2 f Oh 


014436 






nov 


inS642,R4 




809 


002220 


AAZ7il7 

OOnror 


010134 






JSR 


PC.TTOUT .-PRINT NON-EXIST SLAVE 


810 


UU2232 


AAA7Z.A 
000 fHO 








BR 


ST2 :REDO SLAVE REQUEST 


811 




A1 37A/. 


014457 




ST3: 


nov 


«nSG43,R4 




812 




A A/. 7il7 
UOh 'Of 


010122 






JSR 


PC.TTOUT .-PRINT SERIAL NUnBER TAG 


813 


0022HH 


A1 77AT 
01 f f 03 


176360 






nov 


aSN.R3 




814 




AAZ7Jt7 
UUnf Of 


010570 






JSR 


PC.SNPT .-PRINT SERIAL NUMBER 


815 


UUcc ?*» 


A1 07nL 


015241 






nov 


«nSG61,R4 




816 


UU220U 


An/ 7* 7 
OOHf Of 


010102 






JSR 


PC.TTOUT 


; REQUEST RH11 OR RH70 


817 


UU220H 


A1 37AC 
U12f U3 


000672 






nov 


«RH17F.RS 


;GET ADDRESS OF FLAG 


818 


UU22r U 


A1 37A1 
UI2f Ul 


000001 






nov 


fl.Rl 


;SET SIZE OF RESPONSE 


819 


UU22rH 


A1 37A3 
U 1 2 f Uc 


000001 






nov 


«1.R2 


;SET UPPER LIMIT 


820 


UU23UU 


A1 37A7 

U I CIV J 


000000 






nov 


«0.R3 


;SET LOWER LIHIT 


821 


AA5TA/ 

UU2 jUh 


AAZ,7<17 
UUh f 0 f 


007620 






JSR 


PCTTR 


;GET RESPONSE 


822 


AA3t1 A 


A1 07f\L 
U 1 c f Un 


015261 






nov 


«nSG62.R4 




823 


00231 H 


AA/ 7^7 
UUh f Of 


010046 






JSR 


PC.TTOUT 


;REQUEST RH11 ONLY RESPONSE 


824 


AAOtOA 


A1 07A^ 
U 1 CIV J 


001014 






nov 


#RH0F.R5 


;SET FLAG ADDRESS 


825 




A1 37A1 
01 2f 0 1 


000001 






nov 


fl.Rl 


;SET SIZE OF RESPONSE 


826 


nnoxxn 


A1 37A3 
V icivc 


000001 






nov 


«1,R2 


;SET UPPER LIMIT 


827 


nnoxXL 


A1 57AT 
U 1 cf U3 


000000 






nov 


#0.R3 


;SET LOWER LIMIT 


828 


nnoxLti 
UU23*iU 


A A/. 7<17 
OUnf Of 


007564 






JSR 


PCTTR 


;G0 GET RESPONSE 


829 




AA^7*7 
UU3 f Of 


176444 






TST 


RHOF 


;SEE IF RH11 ONLY 


830 




AA1 A1 A 
vv 1 U 1 0 








BNE 


ST4 


;IF SO: BR 


831 




A1 07t\L 
V 1 c f Uh 


015132 






nov 


fnSG55.R4 




832 




UUH f Of 


010004 






JSR 


PC.TTOUT 


; REQUEST NRZ ONLY RESPONSE 


833 


002362 


012705 


001012 






nov 


#NRZ0F.R5 


;SET FLAG ADDRESS 


834 


002366 


012701 


000001 






nov 


fl.Rl 


;SET SIZE OF RESPONSE 


835 


002372 


012702 


000001 






nov 


#1.R2 


;SET UPPER LIMIT 


836 


002376 


012703 


000000 






nov 


f0,R3 


;SET LOWER LIMIT 


837 


002402 


004767 


007522 






JSR 


PCTTR 


;G0 GET RESPONSE 


838 


002406 


005067 


176404 




ST4: 


CLR 


PCNTR 


; CLEAR PASS COUNTER 
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839 












;TEST 


SCHEDULAR********* 


• 


840 


















841 


002412 


000240 






TSCD: 


NOP 






842 


002414 


005067 


176352 






CLR 


STFLG 


:CLEAR SINGLE TEST FLAG 


843 


002420 


017700 


176212 






nov 


aSUR.RO 




844 


002424 


042700 


177740 






BIC 


#1 77740, RO 




845 


002430 


005700 








TST 


RO 




846 


002432 


001053 








BNE 


STSCD 


;G0 SELECT SINGLE TEST 


847 


002434 


012767 


001032 


176332 


TSRH: 


nov 


#TSTTBL,LTADD 




848 


002442 


062767 


000004 


1 76324 


TSCDO: 


ADD 


«4,LTADD 




849 


002450 


016767 


176320 


176306 




nov 


LTADD,ITRLP 




850 


002456 


062767 


000002 


1 76300 




ADD 


#2,ITRLP 


:SET ITERATION ADDRESS 


851 


002464 


005777 


176304 






TST 


aLTADD 




852 


002470 


001002 








BNE 


TSCD1 




853 


002472 


000167 


000140 






JHP 


TEND 


:G0 TO END ROUTINE 


854 


002476 


000240 






TSCD1 : 


NOP 






855 


002500 


005067 


176242 






CLR 


STnSK 




856 


002504 


005067 


176204 






CLR 


ERRP 




857 


002510 


005067 


176160 






CLR 


HDRFL 


: CLEAR PRINT HEADER FLAG 


858 


002514 


017700 


176254 






nov 


aLTADD, RO 


;SET POINTER TO TEST 


859 


002520 


000110 








jnp 


(RO) 


;G0 TO TEST 


860 


002522 


000240 






TSCD2: 


NOP 






861 


002524 


032777 


002000 


176104 




BIT 


#2000, asuR 


;SEE IF HALT ON TEST 


862 


002532 


001401 








BEQ 


TSCD3 


:IF NOT: BR 


863 


002534 


000000 








HALT 






864 


002536 


000240 






TSCD3: 


NOP 






865 


002540 


005767 


176226 






TST 


STFLG 


;SE IF SINGLE TEST 


866 


002544 


001736 








BEQ 


TSCDO 


;IF NOT: BR 


867 


002546 


017700 


176064 






nov 


aSUR,RO 




868 


002552 


042700 


177740 






BIC 


#177740, RO 


.•nASK TEST NUMBER 


869 


002556 


005700 








TST 


RO 


:SEE IF RETURN TO ALL 


870 


002560 


001714 








BEQ 


TSCD 


:IF SO: BR 


871 


002562 


C00240 






STSCD: 


NOP 






872 


002564 


012767 


000001 


176200 




nov 


#1, STFLG 


:SET SINGLE TEST FLAG 


873 


002572 


022700 


000025 






cnp 


#25, RO 


:SEE IF EXCEEDED TESTS 


874 


002576 


003417 








BLE 


TEND 


:IF SO: BR 


875 


002600 


000241 








CLC 






876 


002602 


006100 








ROL 


RO 




877 


002604 


006100 








ROL 


RO 


:SET TABLE HODIFIER 


878 


002606 


012767 


001032 


176160 




nov 


#TSTTBL,LTADO 




879 


002614 


060067 


176154 






ADD 


RO.LTADD 


;SET TEST POINTER 


880 


002620 


016767 


176150 


176136 




nov 


LTADD,ITRLP 




881 


002626 


062767 


000002 


176130 




ADD 


#2,ITRLP 


;SET ITERATION POINTER 


882 


002634 


000720 








BR 


TSC01 




883 


002636 


012704 


013415 




TEND: 


nov 


#nSG6,R4 




884 


002642 


004767 


007520 






JSR 


PC, T TOUT 


.•PRINT END OF PASS 


00 J 


UvcO*>0 


016703 


17614^ 






nov 


PCNTR,R3 




886 


002652 


004767 


007640 






JSR 


PCOCTP 


; PR INT PASS NUnBER 


887 


002656 


032777 


004000 


175752 




BIT 


#4000, aswR 


;SEE IF HALT ON PASS 


888 


002664 


001001 








BNE 


TENDX 


:IF NOT: BR 


889 


002666 


000000 








HALT 






890 


002670 


005267 


176122 




TENDX: 


INC 


PCNTR 


:BUnP PASS COUNTER 


891 


002674 


000167 


177512 






jnp 


TSCD 


.•RESTART 



SEQ 0024 



n 2 
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892 

893 ;RH ADDRESSING TEST**** 

89A 



895 


002700 


012767 


015274 


175770 


FT1 : 


nov 


inSFTI.EHADDR 


896 


002706 


012777 


012014 


175746 




nov 


#TRAP,aBTRP 


897 


0027U 


012777 


000340 


175742 




nov 


«340,8BTRP2 


898 


002722 


012700 


000016 






nov 


#16, RO 


899 


002726 


016701 


175646 






nov 


C1,R1 


900 


002732 


005711 






FT1A: 


TST 


(RD 


901 


00273A 


000240 








NOP 




902 


002736 


005300 






FT1B: 


DEC 


RO 


903 


0027A0 


001403 








BEQ 


FT1X 


904 


002742 


062701 


000002 






ADD 


#2.R1 


905 


002746 


000771 








BR 


FT1A 


906 


002750 


012777 


000006 


175704 


FT1X: 


nov 


#6,aBTRP 


907 


002756 


005767 


176026 






TST 


RHTF 


908 


002762 


001404 








BEQ 


FT1XX 


909 


002764 


005067 


176020 






CLR 


RHTF 


910 


00277J 


000167 


177042 






jnp 


ST1A 


911 


002774 


000167 


177522 




FT1XX: 


jnp 


TSCD2 



25 



SEQ 0025 



;SET HEADER 

;SET TRAP HANDLER ADDRESS 

;SET NUnSER OF REGISTER 
;GET FIRST ADDRESS (CS1) 
;REFERENCE REGISTER 

.IF ADDRESS IS BAD, BUS TRAP WILL OCCUR 
;SEE IF DONE ALL 
'IF SO: BR 

•BUnP ADDRESS POINTER 
.•CONTINUE 

; RESET TRAP CATCHER 

;SEE IF INITIAL ADDRESS TEST PASS 

:IF NOT: BR 

.-CLEAR FLAG 

* RETURN 

•RETURN TO SCHEDULAR 
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912 








913 








9U 








915 


003000 


012767 




916 


003006 


012701 


177777 

1 r f r f f 


917 


003012 


004767 


wvw r c"f 


918 


003016 


016700 


175560 


919 


003022 


010102 




920 


003024 


010110 




921 


003026 


021002 




922 


003030 


001410 




923 


003032 


012767 


013743 


924 


003040 


012767 


003012 


925 


003046 


004767 


0001 1 6 


926 


003052 


016700 


175526 


927 


003056 


010102 




928 


003060 


042702 


000001 

www 1 


929 


003064 


010110 




930 


003066 


020210 




931 


003070 


001410 




932 


003072 


012767 


013751 


933 


003100 


012767 


003052 


95A 


003106 


004767 


000056 


935 


003112 


016700 


175504 


936 


003116 


010102 




937 


003120 


010110 




938 


003122 


012703 


004000 

WWW 


939 


003126 


005303 




940 


003130 


001376 




941 


003132 


020210 




942 


003134 


001410 




943 


003136 


012767 


013757 


944 


003144 


012767 


003112 


945 


003152 


004767 


00001 2 

WWWW ■ 


946 


003156 


005701 




947 


003160 


001454 




948 


003162 


005001 




949 


003164 


000167 


177622 


950 


003170 


000240 




951 


003172 


032777 


020000 

Wfc WWWW 


952 


003200 


001034 




953 


003202 


005767 


175466 


954 


003206 


001004 




955 


003210 


016704 


175462 


956 


003214 


004767 


007146 


957 


003220 


012767 


000001 

WWWWW 1 


958 


003226 


016704 


17550* 


959 


003232 


004767 


007130 

WW t 1 ^w 


960 


003236 


012704 


013707 


961 


003242 


004767 


007120 

WW f 1 b V 


962 


003246 


010103 




963 


003250 


004767 


007230 


964 


003254 


012704 


013717 


965 


003260 


004767 


007102 


966 


003264 


011003 




967 


003266 


004767 


007212 



SEO 0026 



175670 



FT2: 
FT2A: 



175676 
1757U 



FT2B: 



175636 
175654 



FT2C: 



FT20: 



175572 
175610 



175436 



FT2E: 



FT2ER: 



175446 FT2ERA: 



:RH REGISTER BITS READ/URITE< 



MOV 


fHSFT2,EnADDR 


.-SET TEST HEADER 


MOV 


f-1 ,R1 


;SET ALL ONES PATTERN 


JSR 


PC.INITl 


;G0 INIT 


MOV 


UC.RO 


:GET ADDRESS OF WORD COUNT 


MOV 


R1 ,R2 


:SET EXPT REGISTER BIT PATTERN 


MOV 


R1 ,(R0} 


:LOAD PATTERN 


CMP 


(R0),R2 


;SEE IF EXPTsRCVD 


BEQ 


FT2B 


;IF SO: BR 


MOV 


fHSG25,ERADD 


;SET CODE 


MOV 


fFT2A,SC0LP 


;SET SCOPE 


JSR 


PC,FT2ER 


;G0 DO ERROR 


NOV 


BA.RO 


;GET ADDRESS OF BUS ADDRESS 


NOV 


R1 ,R2 




BIC 


#1,R2 


;SET EXPT PATTERN 


MOV 


R1 .(RO) 


;LOAD PATTERN 


CMP 


R2. (RO) 


;SEE IF EXPTsRCVD 


BEQ 


FT2C 


:IF SO:BR 


NOV 


#NSG26,ERADD 


.-SET ERROR CODE 


NOV 


#FT2B,SC0LP 


;SET SCOPE ADDRESS 


JSR 


PC,FT2ER 


:G0 DO ERROR 


nov 


DB.RO 


;GET ADDRESS OF DATA BUFFER 


nov 


R1,R2 




nov 


R1,(R0) 


;LOAD PATTERN 


nov 


f4000,R3 




DEC 


R3 


.'DELAY 


BNE 


FT2D 




CMP 


R2.(R0) 


:SEE IF EXPTsRCVD 


BEQ 


FT2E 


;IF SO: BR 


nov 


fRSG27,ERADD 


:SET ERROR CODE 


nov 


fFT2C,SC0LP 


:SET SCOPE ADDRESS 


JSR 


PC,FT2ER 


;60 DO ERROR 


TST 


R1 


:SEE IF DONE RESET 


BEQ 


FT2X 


:IF SO: BR 


CLR 


R1 


:SET ZERO PATTERN 


JHP 


FT2A 


:D0 ZERO BITS 


NOP 






BIT 


f 20000, aswR 


;SEE IF PRINT ERROR 


BNE 


FT2ERB 


;IF NOT: BR 


TST 


HDRFL 


;SEE ID DONE HEADER 


BNE 


FT2ERA 


:IF SO: BR 


NOV 


ERADDR,R4 




JSR 


PC.TTOUT 


:D0 HEADER 


NOV 


11, HDRFL 


;SET FLAG 


MOV 


ERADD,R4 




JSR 


PC.TTOUT 


.•PRINT ERROR CODE 


MOV 


#nSG22,R4 




JSR 


PC.TTOUT 


.•PRINT EXPT TAG 


NOV 


R1,R3 




JSR 


PCOCTPE 


;PRINT EXPT 


•40V 


#nSG23,R4 




JSR 


PCTTOUT 


;PR1NT RCVD TAG 


MOV 


(R0),R3 




JSR 


PC.OCTPE 


;PR1NT RCVD 
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968 


003272 


005777 


175340 


FT2ERB: 


TST 


asuR 


.-SEE IF HALT ON ERROR 


969 


003276 


100001 






BPL 


FT2ERC 


;IF NOT: BR 


970 


003300 


000000 






HALT 






971 


G03302 


004767 


006326 


FT2ERC: 


JSR 


PC. SCOPE 


:G0 SEE IF SCOPE ON ERROR 


972 


003306 


000240 






NOP 






973 


003310 


000207 






RTS 


PC 


;IF NO SCOPE: CONTINUE TEST 


974 


003312 


000240 




FT2X: 


NOP 






975 


003314 


004767 


006356 




JSR 


PC, ITER 


;G0 SEE IF ITERATIONS 


976 


003320 


000167 


177176 




JHP 


TSCD2 


.•RETURN TO SCHEDULAR 



TH02/TUA5 BaSIC 


FUNCTION TEST 


HACYII 


30(1046) 


13- 


C 3 

JUN-78 13:49 PAGE 


28 


CZTUJA. 


P11 07-JUN-78 


16:58 












977 


















978 












« Ntl 






979 


















980 


A ATT 1 y 

003324 


01 2767 


015356 


1 1 jjHH 


r 1 J . 


■inu 
nuv 


vn9r 1 jfCnnuun 


•CFT TFCT MFARFB 
« 9C 1 1 C9 1 nCAI^Cn 


981 


003332 


012767 


003324 


1 7C£99 
1 fj'*CC 




nuv 


ff F IT crni P 

V r 1 J « 9 L UL r 




982 


AATT / A 

003340 


AA/ 

004767 


006376 






ICR 


pr mm 

r t « i If 1 1 1 


•GO IMIT 

9 UU 1 IV I 1 


983 


AATT/ y 

003344 


AC "i^^^ 

052777 


020000 


1 70'<A 
1 IjCjO 




Rl C 

Did 


tponnn arc 


• FnRrp iiPF si 

frURLC Urc 


984 


003352 


AAA'^y A 

000240 








kino 






985 


AATTCy 

003354 


AA/ 

004 f6f 


006362 






ICD 


pr iki I T1 

r L > 1 n 1 1 1 


'CS\ III IT 
y UU i ni 1 


986 


003360 


OOji If 


175214 






TCT 

1 a I 


an 


•CFF IF Cr IC PFCFT 
, 9CC XT 9L 19 nC9C 1 


987 




1 AAAAC 








BDI 


FT^l 

r 1 JA 


•IF cn> RR 

# I r 9U • Dn 


988 


003366 


A1 17X7 


014015 


1 7S'?£? 

1 f JjHt 




■inu 
nuv 


jiHcnPQ FBAnn 

vn9Uc7«CnAUU 


•CFT FRRnB rnDF 

« 9C 1 CnnUn LUvC 


989 


0033 


t\t\J 7X7 

OOh ^6 f 


000060 






ICP 


pr FT^FB 


•RO nn FRBOB 
« UU VU CflnUn 


990 




AT0777 


040000 






BIT 
Dl 1 


ii^nnnn an 


•CFF IF TBF IC RFCFT 
» 9CC !• 1 nC 19 nC9Ci 


991 


AAVy AA. 


AA1 /.AC 








DCW 


F T'^R 


•IF Cn- RR 
fir 9w • Dn 


992 


AAV/ 1 A 


At '57X7 


014044 


1 IjjCV 




nuv 


vn9U jU / CnMUl/ 


•CFT FDBnB rnnF 

« 9C 1 CnnUn UUVC* 


993 


UU3h 1 6 


A A/ 7X7 

OOh ^ 6f 


000036 






J 9n 


pr FT'XFP 


• (^n nn FBBns 

, UU l/U cnnUn 


99A 


AAT/. 00 

UU3h£^ 


A1 77ni 


175162 




r 1 JO • 


nuv 


arc Pi 

9 « If 1 


•fiFT rc? 

« UC 1 L9£ 


995 


AAiy oz. 


nj 07A1 


000307 






Bi r 

OIL 


4^07 R1 


•HARK IR/OR 


996 


AAT/.T9 

003h3£ 


AAC7A1 

005f 01 








TCT 
1 3 1 


R1 

If 1 


•CFF IF PFCFT 
t 9CC 1 r lie 9C 1 


997 


AATZ I/. 
00 i** 5** 


AA1 / AC 








BFQ 


r 1 


•IF cn • RB 


998 




ni 07A7 


014074 






MOU 

nuv 


AMCC^I FBinb 

Vn90J 1 f CnAyU 


•CFT FBBnR rORF 
t 9C 1 cnnun UUI/C 


999 


003h<i<i 


t\t\J 7X7 
00*1 f O f 


000010 






1 CP 


pr FTXPP 


• Rn nn FBBnp 

, UU UU CnnUn 


1000 


AATACA 

UUj*t3U 


AA/ 7/17 


006222 




r 1 jA • 


ICR 
Jon 


pr TTFP 


• Rn CFF IF ITFPATinW 
« UU 9CC ir lICnAllUn 


1001 


AAT/C/ 


AAA1 /t7 

UUUlor 


177042 






IMP 

jnr 


Tcri>? 


• PFTIIBU Tn CrUFnill AP 
, ICC 1 UrIIV lU 9LnCUULAIf 


1002 


AAT/i^A 

UU3h6U 


A'f5777 

03c / / f 


020000 


1 7C1 CA 


r 1 Jt R • 


BIT 


ii9nnfln acup 


•CFF IF PRINT FRRnR 
« 9CC ir rnirvi cnfiun 


1003 


UU 3^ 00 


AA1 A1 C 








BUF 


f T'^FPR 


•IF unT • RP 
« 1 r IVU 1 • Dn 


1004 


AAT/ 7A 

00 3h ^0 


AAC7/t7 


175200 






TCT 
1 9 1 


nvnf L 


•CFF IF DflMF MFAHFR 
# 9CC ir VUIVC nCAUCn 


1005 


AAI/,7^ 

OU J** » *• 


00 1 000 








BMP 

one 


r 1 JCnA 


•IF cn* RR 
• 1 r 9U • Dn 


1006 


AA'<£7A 


rti A7n/, 
0 1 Or Oh 


175174 






Mnu 

nuv 






1007 


(;U3)Uc 


AAZ 7*7 
00*1 f^Of 


006660 






ICR 


pr TTnilT 


•PRIMT HFADFR 


1008 


AATCAZ 

UU33il6 


AACO/17 

OO^cOr 


175162 








unPF 1 




1009 


UU331 £ 


A1 il7A/ 

016f Oh 


175220 




r 1 JCrl ^ • 


Mnu 

nuv 


FPinn p^ 

C nnW 9 nH 




1010 


003516 


004767 


006644 






ICP 
J 9n 


pr TTflllT 
r L « 1 1 UU 1 


•PRIMT FRRnR mDF 


1011 


003522 


005777 


175110 




r 1 JCnO • 


TST 


asuR 


•CFF IF HAi T HM FRRnR 
r 9CC If TIAL I Un CnnUri 


1012 


003526 


100001 








BPL 


PT3ERC 


• I F MOT • RR 

t XT IVU 1 • On 


1013 


003530 


000000 








HALT 




10U 


003532 


000240 






FT3ERC: 


NOP 






1015 


003534 


004767 


006074 






JSR 


PC, SCOPE 


;G0 SEE IF SCOPE 


1016 


003540 


000207 








RTS 


PC 


;IF NOT: BR 



SEO 0028 



0 3 

TH02/TU45 BASIC FUNCTION TEST HACYll 30(1046) 13-JUN-78 13:49 PAGE 29 
CZTUJA.P11 07-JUN-78 16:58 

1017 

1018 :RH11 SILO TEST 1: EPHTV SILO READ 

1019 



1020 


003542 


005767 


175124 




FT4: 


TST 


RH17F 




1021 


003546 


001141 








BNE 


FT5X 


:IF RH70: BR 


1022 


003550 


012767 


015410 


175120 




nov 


«nSFT4,ENA00R 


.SET TEST TEST HEADER 


1023 


003556 


012777 


000040 


175024 




nov 


«40,acs 


;INIT 


1024 


003564 


017700 


175032 






nov 


iDB.RO 


;READ DB 


1025 


003570 


005777 


175014 






TST 


acs 


;SEE IF OLT IS SET 


1026 


003574 


100013 








BPL 


FT4ER 


;IF NOT: BR 

;SEE IF SC IS SET 


1027 


003576 


005777 


174776 






TST 


aci 


1028 


003602 


100014 








BPL 


FT4ERA 


;IF NOT: BR 


1029 


003604 


032777 


040000 


174766 




BIT 


#40000. aci 


;SEE IF TRE IS SET 


1030 


003612 


001414 








BEQ 


FT4ERB 


:IF NOT: BR 


1031 


003614 


004767 


006056 




FT4X: 


JSR 


PC. ITER 


:G0 SEE IF ITERATION 


1032 


003620 


000167 


176676 






JHP 


TSCD2 


.-RETURN TO SCHEDULAR 


1033 


003624 


012767 


014124 


175104 


FT4ER: 


nov 


#nSG32.ERADD 


;SET ERROR CODE 


1034 


003632 


000407 








BR 


FT4ERC 


1035 


003634 


012767 


014142 


175074 


FT4ERA: 


nov 


#nSG33,ERADD 


:SET ERROR fODE 


1036 


003642 


000403 








BR 


FT4ERC 


1037 


003644 


012767 


014157 


175064 


FT4ERB: 


nov 


#nSG34.ERADD 


.-SET ERROR CODE. 


1038 


003652 


000240 






FT4ERC: 


NOP 






1039 


003654 


012767 


003542 


175100 




nov 


#FT4.SC0LP 


:SET SCOPE ADDRESS 


1040 


003662 


004767 


177572 






JSR 


PC,FT3ER 


;G0 PRINT ERROR 


1041 


003666 


000752 








BR 


FT4X 



TH02/TUA5 BASIC FUNCTION TEST 
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3 

PAGE 



30 



SEQ 0030 



1042 


















1043 












:RH11 


SILO TESf 2: IR/OR 




1044 


















1045 


003670 


005767 


174776 




FT5: 


TST 


RH17F 


SEE IF RH70 


1046 


003674 


001066 








BNE 


FT5X 


IF SO: BR 


1047 


003676 


012767 


015440 


174772 




nov 


fnSFT5,EnADDR 


SET TEST HEADER 


1048 


003704 


012767 


003712 


175050 




nov 


#FT5A,SC0LP 


SET SCOPE ADDRESS 


1049 


003712 


004767 


006024 




FT5A: 


JSR 


PC.INIT1 


GO INIT 


1050 


003716 


032777 


000100 


174664 




BIT 


#100, ars 


SEE IF IR IS SET 


1051 


003724 


001005 








BNE 


FT5B 


-IF SO: BR 


1052 


003726 


012767 


014175 


175n02 




NOV 


«nSG35,ERADD 


-SET ERROR CODE 


105'> 


003734 


004767 


000122 






JSR 


PC.FT5ER 


GO DO ERROR 


1054 


003740 


032777 


000200 


174642 


FT5B: 


BIT 


#200, acs 


SEE IF OR IS RESET 


1055 


003746 


001405 








BEQ 


FT5C 


IF SO: BR 


1056 


003750 


012767 


014222 


174760 




nov 


fnSG36,ERADD 


SET ERROR CODE 


1057 


003756 


004767 


000100 






JSR 


PC.FT5ER 


-GO DO ERROR 


1058 


003762 


012777 


000000 


174632 


FT5C: 


nov 


#0,aDB 


;LOAD ZERO INTO SILO 


1059 


003770 


032777 


000200 


174612 




BIT 


#200, acs 


;SEE THAT OR RESET 


1060 


003776 


001405 








BEQ 


FT50 


;IF IT DOES: BR 


1061 


004000 


012767 


014251 


174730 




nov 


#nSG37.ERADD 


;SET ERROR CODE 


1062 


004006 


004767 


000050 






JSR 


PC.FT5ER 


;G0 DO ERROR 


1063 


004012 


012777 


177777 


174602 


FT5D: 


nov 


#-1 ,aDB 


;LOAD SILO WITH -1 


1064 


004020 


012700 


004000 






nov 


#4000, RO 




1065 


004024 


032777 


000200 


174556 


FT5E: 


BIT 


#200, acs 


;SEE IF OR IS SET 


1066 


004032 


001007 








BNE 


FT5X 


;IF SO: BR 


1067 


004034 


005300 








DEC 


RO 




1068 


004036 


001372 








BNE 


FT5E 


; AWAIT OR 


1069 


004040 


012767 


014251 


174670 




nov 


#nSG37,ERA0D 


;SET ERROR CODE 


1070 


004046 


004767 


000010 






JSR 


PC,FT5ER 


;G0 DO ERROR 


1071 


C04052 


004767 


005620 




FT5X: 


JSR 


PC. ITER 


;G0 SEE IF ITERATION 


1072 


004056 


000167 


1 76440 






J«p 


TSCD2 


; RETURN TO SCHEDULAR 


1073 


004062 


004767 


177372 




FT5ER: 


JSR 


PC.FT3ER 


;G0 PRINT ERROR 


1074 


004066 


000240 








NOP 






1075 


004070 


000207 








RTS 


PC 


; CONTINUE TEST 



TH02/TU45 BASIC FUNCTION TEST 
CZTUJA.P11 07-JUN-78 16:58 



BACYll 30<1046) 13-JUN-78 



F 3 
1^:49 PAGE 31 



SEQ 0031 



1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

108A 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

110A 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

11U 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 



;RH11 SILO TEST 3: SILO DATA TEST********** 



004072 
004076 
004100 
004106 
004114 
004120 
004122 
004126 
004130 
004134 
004136 
004144 
004146 
004154 
004160 
004166 
004170 
004176 
004202 
004204 
004210 
004212 
004214 
004216 
004222 
004224 
004230 
004234 
004236 
004242 
004244 
004246 
004254 
004256 
004262 
004266 
004272 
004276 
004302 
004306 
004312 
004316 
004320 
004324 
004330 
004334 
004336 
004342 
004346 
004350 
004352 



005767 
001052 
012767 
012767 
004767 
005000 
010077 
005200 
022700 
001372 
032777 
001405 
012767 
004767 
032777 
001005 
012767 
004767 
005000 
017701 
020001 
001014 
005200 
022700 
001370 
004767 
000167 
000240 
004767 
000207 
000240 
032777 
001032 
005767 
016701 
004767 
005267 
012704 
004767 
012704 
004767 
010003 
004767 
012704 
004767 
010103 
004767 
005777 
100001 
000000 
000207 



174570 
174646 



174444 
174562 
174422 
174540 



174574 

015470 
004114 
005622 

174474 

000102 

000100 

0U362 
000054 
000200 

014310 
000032 

174412 



000102 

005446 
1 76266 

177216 



020000 1 74362 

174412 
174410 
006074 
174376 
014342 
006060 
013707 
006050 

006172 
013717 
006032 

006154 
174270 



FT6: 

FT6A: 
FT6B: 



FT6C: 



FT6D: 
FT6E: 



FT6X: 
FT6ER: 

FT6DE: 



FT6DEA: 



FT6DEB: 
FT6DEX: 



TST 
BNE 

nov 
nov 

JSR 
CLR 

nov 

INC 
CUP 
BNE 

BIT 
BEQ 

nov 

JSR 
BIT 
BNE 

nov 

JSR 
CLR 

nov 
cnp 

BNE 
INC 

cnp 

BNE 
JSR 

./np 

HOP 
JSR 
RTS 
NOP 
BIT 

TST 

nov 

JSR 
INC 

nov 

JSR 

nov 

JSR 

nov 

JSR 

nov 

JSR 

nov 

JSR 

TS' 

BPL 

HALT 

PTS 



RH17F 
FT6X 

#nSFT6,EnADDR 
l'FT6A,SC0LP 
PCINITI 
RO 

RCaOB 
RO 

#102. RO 
FT6B 

#100, acs 

FT6C 

#nSG40,ERADD 
PC.FT6ER 

#200, acs 

FT6D 

#nSG38.ERAD0 

PC,FT6ER 

RO 

aDB,R1 
RO.Rl 
FT6DE 
RO 

#102, RO 
FT6E 
PC, ITER 
TSCD2 

PC.FT3ER 
PC 

#20000. aSUR 

FT6DEB 

HDRFL 

EMAOOR.RI 

PC.TTOUT 

HDRFL 

#nSG39,R4 

PC.TTOUT 

#nSG22,R4 

PC.TTOUT 

R0,R3 

PC.OCTP 

#nSG23,R4 

PCTTOUT 

R1,R3 

PCOCTP 

asuR 

FT6DEX 
PC 



IF RH70: BR 

SET TEST HEADER 

SET SCOPE ADDRESS 

GO INIT 

PRESET DATA 

LOAD SILO 

BUnP DATA 

SEE IF FILLED ALL 

IF NOT: BR 

SEE IF IR IS RESET. 

IF SO: BR 

SET ERROR CODE 

GO DO ERROR 

SEE IF OR IS SET 

IF SO: BR 

SET ERROR CODE 

60 DO ERROR 

PRESET DATA 

READ SILO 

SEE IF EXPT=RCVD 

IF NOT: BR 

BUnP DATA 

SEE IF DONE ALL 

IF NOT: BR 

60 SEE IF ITERATION 

RETURN TO SCHEDULAR 

;G0 PRINT ERROR 
;RETURN 

SEE IF PRINT ERROR 

IF NOT: BR 

SEE IF DONE HEADER 

; PRINT HEADER 
;SET FLAG 

.•PRINT SILO READ ERROR 
.•PRINT EXPT TAG 
.•PRINT EXPT 
.•PRINT RCVD TAG 
PRINT RCVD 

SEE IF HALT ON ERROR 
IF NOT: BR 

;RETURN TO TEST 



TH02/TU45 BASIC FUNCTION TEST 
CZTUJA.P11 07-JUK-78 16:58 



nACYl1 30(1046) 



1130 








1131 








1132 








1133 


004354 


005767 


174312 


1134 


004360 


001021 




1135 


004362 


012767 


015520 


1136 


004370 


012767 


004354 


1137 


004376 


004767 


005340 


1138 


004402 


012700 


000103 


1139 


004406 


010077 


174210 


1140 


004412 


005300 




1141 


004414 


001374 




1142 


004416 


005777 


174166 


1143 


004422 


100004 




1144 


004424 


004767 


005246 


1145 


004430 


000167 


176066 


1146 


004434 


012767 


014124 


1147 


004442 


004767 


177012 


1148 


00<i446 


000766 





FT7: 



174306 
174364 



FT7A: 



FT7X; 



174274 FT7ER; 



G 3 

13-JUN-78 13:49 PAGE 32 



SEO 0032 



:RH11 SILO TEST 4: SILO OVERFLOW 



TST 


RH17F 




BNE 


FT7X 


IF RH70: BR 


NOV 


#HSFT7,EHADDR 


SET TEST HEADER 


NOV 


#FT7,SC0LP 


SET SCOPE ADDRESS 


JSR 


PC.INIT1 


GO INIT 


NOV 


1103, RO 


SET SIZE OF SILO +1 


HOV 


RO.iDB , 


LOAD SILO 


DEC 


RO 


SEE IF DONE 


ONE 


FT7A 


•IF NOT: BR 


TST 


acs 


•SEE IF DLT IS SET 


BPL 


FT7ER 


IF NOT: BR 


JSR 


PC, ITER 


GO SEE IF ITERATION 


JBP 


TSCD2 


; RETURN TO SCHEDULAR 


nov 


#nSG32,ERADD 


;SET ERROR CODE 


JSR 


PC,FT3ER 


;G0 DO ERROR 


BR 


FT7X 





TH02/TUA5 BASIC FUNCTION TEST 
CZTUJA.P11 07-JUN-78 16:58 



MCV11 30(1046) 



1U9 

1150 

1151 

1152 

1153 

115', 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

116A 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

117<. 



00AA50 
004454 
004456 
004464 
004472 
004500 
004504 
004510 
004512 
004514 
004522 
004530 
004534 
004540 
004544 
004546 
004552 
004556 
004560 
004564 
004570 
004576 
004602 



005767 
001034 
012767 
012767 
012777 
012700 
010077 
005300 
001374 
052777 
01^777 
017701 
017701 
005777 
100011 
004767 
005767 
001402 
000167 
000167 
012767 
004767 
000761 



174216 

015550 
004450 
000040 
000004 
174112 



000040 

Mim 

174066 
174062 
174044 

005124 
174236 

176052 
175732 
014124 
176656 



FTIO: 



174212 
174270 
174110 



174066 
174072 



FT10A: 



174140 



FTIOX: 



FT10XX: 
FT10ER: 



H 3 

13-JUN-78 13:49 PAGE 33 



;RH11 SILO TEST 5: SILO RESET 



TST 


RH17F 






FTIOX 


IF RM70> RR 


MOV 


fMSFTIO FMADDR 


SFT TFST MFADFR 


PIU V 




CFT CrnPF ADRRFCC 


Mnu 

nu V 


tLC\ arc 


I kl t T I Al 1 7F 


■nu 

nu V 


ML BO 






on anB 


UD t TF Clin 
WK lit J 1 LU 




KU 1 


ccc tc nnkic 




c Tint 


1 1 kinT • ao 
1 r NU 1 • OK 


Die 


MLt\ arc 


lUITtAI t7C 
INl 1 1 ALl£C 


Mnu 
HOV 


#'1 ,iDB 


uD t TC c 1 1 n 
WRlic SILO 


MAI' 


•DB«R1 


RcAD SILO 1 


nnii 
BUV 


•DB«R1 


Ok.Ai\ Clin 0 


TCT 


arc 


• CEC IF ni T 1 C CF T 
dec i r I;L I i J dC 1 


BPL 


FT10ER 


-IF NOT: BR 


JSR 


PC. ITER 


■60 SEE IF ITERATION 


TST 


RHOF 


;SEE IF RH11 ONLY 


BEQ 


FT10XX 


;IF NOT: BR 


JHP 


TEND 


;EL'£ GO TO END 


JHP 


TSC02 


; RE TURN TO SCHEDULAR 


nov 


«NS632.ERA00 


;SET ERROR CODE 


JSR 


PC.FT3ER 


;60 00 ERROR 


BR 


FTIOX 





m02/TUA5 BASIC FUNCTION TEST HACYll 30 
CZTUJA.Pn 07-JUN-78 16:58 



1175 










1 1 76 










11 f 7 


004604 


000240 






11 r 6 


(KM606 


A1 7 

012767 


004604 


174146 


n f T 


00A61h 


AA ^7^7 

004767 


AAP 4 ^ ^ 

005122 




11 80 


AAi £. 

004620 


012767 


AAA V A A 

000300 


174156 


11 81 


A A 1 d^^d. 

004626 


012767 


1 71777 


174052 




0OA63A 


Ai ^ 7i 7 

012767 


< 77777 

J 11111 


1 74046 


1 103 




A< ^7A 7 

012767 


\ 77777 

1 11111 


1 7^ A9 / 

1 74034 


11 W 


AA/ Z.CA 


0l2'67 


000001 


1 7/ A/ ^ 

1 74046 


1 185 


004656 


A^ ^7X 7 

012767 


AA AA A 1 

000001 


1 74042 


1 1 OO 


t\l\Lt^AL 
UUhOO'i 




UUUUU i 


1 f*»lUH 


1187 


004672 


004767 


003730 




1188 


004676 


000240 






1189 


004700 


012767 


015601 


173770 


1190 


004706 


004767 


004144 




1191 


004712 


004767 


004760 




1192 


004716 


000167 


175600 





13-JUN-78 13:49 PACE 34 

SEQ 0034 



;N0P 






NOP 






nov 


#FT11 .SCOLP 


:SET SCOPE ADDRESS 


JSR 


PCINITI 




HOV 


#300,UDES 


;SET TC= ALL NRZ,NORH,ODD 


HOV 


#-1 ,FCNT 


;SET FC= ALL OVER 


MOV 


#-1 ,WCNT 


:SET UC= ALL OVER 


HOV 


#-1 ,BADDR 


.SET BA= ALL OVER 


HOV 


#1 ,ROYOX 


;SET DELAY 


HOV 


#1 ,0P0YX 


;SET OP DELAY 


nuv 


« 1 « fUN 


. C C T UA A r 1 lU^ T ff AUC ^ A A P 

;ScT NOP FUNCTIONS CODE 


JSR 


PCEXEC 


:G0 EXECUTE COHHAND 


NOP 






HOV 


#HSFT11,EHADDR 




JSR 


PC.ERCHK 


:60 CHECK REGISTER 


JSR 


PC. ITER 


;G0 SEE IF ITERATIONS 


JHP 


TSC02 


.•RETURN TO SCHEDULAR 



TH02/TUA5 BASIC FUNCTION TEST 
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HACY11 30(10A6) 13-JUN-78 13:A9 



3 

PAGE 



1193 












.REWIND 




119A 
















1195 


00A722 


000240 






FT12: 


NOP 




1196 


00A724 


012767 


004722 


1 74030 




nov 


#FT12.SC0LP 


1197 


004732 


004767 


005004 






JSR 


PC.INITl 


1198 


004736 


052777 


001 700 


1 73666 




BIS 


#1700, iTC 


1199 


004744 


012767 


177760 


173734 




nov 


#-20,FCNT 


1200 


004752 


012767 


177770 


173730 




nov 


#-10,yCNT 


1201 


004760 


012767 


016232 


173716 




nov 


fWDATA.BADDR 


1202 


004766 


012767 


000007 


174002 




nov 


#7, FUN 


1203 


004774 


004767 


003626 






JSR 


PCEXEC 


1204 


C05000 


000240 








NOP 




1205 


005002 


A9 ^^^^ 

032777 


A^ AAAA 

020000 


1 73602 


FT12A: 


A V V 

BIT 


f 20000, iDS 


1206 


005010 


001374 








BNE 


FT12A 


1207 


005012 


012767 


015621 


173656 




nov 


#nSFT12,EnADDR 


1208 


005020 


004767 


004032 






JSR 


PC.ERCHK 


1209 


005024 


004767 


004646 






JSR 


PC, ITER 


1210 


005030 


000167 


175466 






jnp 


TSCDZ 


1211 

















35 



SEO 0035 



GO INITIALIZE 
SET TO NRZ, NORMAL 
SET FC=20 
SET WC=10 

SET BA=URITE POt-FER 
SET REWIND OP CODE 
GO EXECUTE COMMAND 



.AUAIT PIP 

;G0 CHECK FOR ERROR 
:G0 SEE IF ITERATION 
.•RETURN TO SCHEDULAR 



TH02/TUA5 BASIC 


FUNCTION TEST 


BACY11 


V A / 4 A / ^ \ 

30(1046) 


4 T 

13- 


K 3 

JUN-78 13:49 PAGE 


36 




CZTUJA. 


P11 07-JUN-78 


16:58 














1212 












;WRITE/READ TEST***** 






1213 
12U 


005034 


000240 






FT13: 


NOP 








1215 


00S036 


012767 


102300 


173702 




NOV 


#102300, STNSK 


: IGNORE DATA RELATED 


ERRORS 


1216 


005044 


012767 


000001 


173652 




NOV 


#1 ,RDYDX 






1217 


005052 


012767 


000001 


173646 




NOV 


#1 ,OPDYX 






1218 


005060 


012767 


0001 00 


173624 




NOV 


flOO.RCNT 


:SET RECORD COUNT 




1219 


005066 


012767 


015644 


173602 




NOV 


«NSFT13,EnADDR 


:SET TEST HEADER 




1220 


005074 


012767 


000001 


173704 




NOV 


#1,PATRN 






1221 


005102 


004767 


004352 






JSR 


PCDSUP 


:SET UP ALL ONES DATA 


PATTERN 


1222 


005106 


012767 


M M M V M M 

000300 


173670 




NOV 


1300. UOES 


.-REWIND TO BOT 




1223 


005114 


004767 


003640 




FT13A: 


JSR 


PC.RUND 


;SET 200 BPl. NORNAL 




122A 


005120 


012767 


1 77600 


173560 




NOV 


«-200,FCNT 


;SET FC 




1225 


005126 


012767 


177700 


173554 




NOV 


«-100,UCNT 


.SET UC 




1226 


005134 


012767 


016232 


173542 




NOV 


fUDATA^BADDR 


;SET BA 




1227 


005142 


012767 


000061 


173626 




NOV 


#61, FUN 


;SET WRITE OP-CODE 




1228 


005150 


012767 


013523 


173536 




NOV 


#NS612,ERRP 






1229 


005156 


004767 


003444 




FT13B: 


JSR 


PC, EXEC 


:G0 EXECUTE CONNAND 




1230 


005162 


005067 


173574 






CLR 


SCOLP 


:N0 SCOPE LOOP 




1231 


005166 


004767 


003664 






JSR 


PCERCHK 


:G0 CHECK ERROR 




1232 


005172 


005367 


4 ^ V r 4 « 

173514 






DEC 


RCNT 


:SEE IF DONE ALL 




1233 


0051 76 


001367 








BNE 


FT13B 


:1F NOT: BR 




1234 


005200 


012767 


000100 


173504 




NOV 


#100, RCNT 


:SET RECORD COUNT 




1235 


005206 


012767 


017744 


173470 




NOV 


#RDATA,BADDR 






1236 


005214 


062767 


000200 


173462 




ADD 


#200,BAD0R 


;SET BA 




1237 


005222 


012767 


A A AA^^ 

000077 


173546 




NOV 


#77, FUN 


.-SET READ REVERSE OP- 


CPDE 


1238 


005230 


012767 


013541 


173456 




NOV 


#NSG13,ERRP 






1239 


005236 


004767 


A A / 

003364 




FT13C: 


JSR 


PC, EXEC 


;G0 EXECUTE CONNAND 




1240 


005242 


004767 


AA V ^ 4 A 

003610 






JSR 


PCERCHK 


;G0 CHECK ERROR 




4 t < 4 

1241 


005246 


005367 


1 73440 






DEC 


RCNT 


;SEE IF READ ALL 




1242 


005252 


001371 








BNE 


FT15C 


;1F NOT: BR 




1243 


005254 


162767 


A AA'% A A 

000200 


173422 




SUB 


#200,BADDR 


.-SET BA 




1244 


005262 


012767 


000071 


173506 




NOV 


#71. FUN 


;SET READ FORWARD OP- 


CODE 


1245 


005270 


012767 


A 4 v r ^ ^ 

013566 


173416 




NOV 


#NSG14,ERRP 






1246 


005276 


012767 


AAA4 AA 

000100 


173406 




NOV 


#100, RCNT 


:SET RECORD COUNT 




1247 


005304 


004767 


AA9 4 ^ 

003316 




FT13D: 


JSR 


PC, EXEC 


:G0 EXECUTE CONNAND 




1248 


005310 


004767 


AA9f £ t 

003542 






JSR 


PCERCHK 


;G0 CHECK ERRORS 




1249 


005314 


005367 


173372 






DEC 


RCNT 


;SEE IF DONE ALL 




1250 


005320 


001371 








BNE 


FT13D 


;IF N0T:BR 




1251 


005322 


032767 


002000 


173454 




BIT 


#2000,U0ES 


;SEE IF DONE PE 




1252 


005330 


001017 








BNE 


FT13X 


;IF SO: BR 




1253 


005332 


062767 


AAA/ AA 

000400 


173444 




ADD 


#400,UDES 


.•SELECT NEXT DENSITY 




1254 


005340 


032767 


002000 


173436 




BIT 


#2000, UDES 


.SEE IF PE 




1255 


005346 


001403 








BEQ 


FT13E 


;IF NOT: BR 






005350 


005767 


1 r 3^30 






TST 


NRZOF 


.'SEE IF NRZ ONLY 




1257 


005354 


001005 








BNE 


FT13X 


;IF SO: BR 




1258 


005356 


012767 


000100 


173326 


FT13E: 


NOV 


#100, RCNT 


.•RESET RECORD COUNT 




1259 


005364 


000167 


177524 






JNP 


FT13A 


;G0 DO NEXT DENSITY 




1260 


005370 


000167 


175126 




FT13X: 


JNP 


TSCD2 


.•RETURN TO SCHEDULAR 





SEO 0036 



TH02/TU45 BASIC FUNCTION TEST 
CZTUJA.P11 07-JUN-78 16:58 



HACYH 30(1046) 



L 3 

13-JUN-78 13:49 PAGE 37 



ScQ 0037 



1 5iL1 

1 col 


















I cOc 


















1 O/^X 
1 COJ 


nnc 17/. 
005 J rn 


AAA?/. A 

OOOchO 






C T1 A • 


MAD 
NOr 






1 O^iL 

1 cOh 


OOj jrO 


A1 37A7 
01 Cf Of 


A1 CA7t 

01 jOr J 


1 r JCr c 




no* 


AMCFTI^ FMAnno 
• nor 1 i*t,cnAui/n , 


CFT TFCT UFAHFD 
OC 1 1 CO 1 nCAVCn 


1 cOj 


009*tO*t 


A1 37A7 
OlcrOr 


OA1 700 
00 1 r 00 


1 77X73 
1 r jjrc 




■nu 

nov 


41700 linFC 

* 1 r UU«Ul>CO ( 


CFT IIR7 klORMAI 
OC 1 nnfc.NUKnAL 


1 COO 


003*t 1 c 


A A/. 7A7 
0U*» r 0 r 


OO^JHC 




t I 1 1 • 


1 CD 




fin ruTTrAi r7F 

UU 1 It 1 1 1 AL lie 


1 cO r 


UU 3*1 1 o 


A1 37A7 
0 1 c r Or 


nnmnn 

OUU 1 wU 


1 773A6 
1 r jcoo 




MOU 

nuv 


4100 RruT 

• 1 MM « n L n 1 a 


CFT UIIMRFR OF RFfORnFR 
OC 1 itunocn ur ncLUnucn 


1 cOO 


Arte / 5/ 


A1 37A7 
U 1 C r Or 


1 77777 

\ f f t f f 


01 OAOO 
M 1 UOUU 




nuv 


4-1 unATA 


CFT nATA PATTFRkI 

OCI Uni n rAIICnn 


1 cOt 


UU3*i jc 


A1 37A7 
U 1 C r Or 


1 77700 
\ f f f MM 


1 773iA 
1 r jc<tO 




nuv 


4-100 FrUT 

• 1 MM tX \,n\ t 


PRFCFT FRAMF fMT 

rnCOCI r n^nc Ln 1 


1 570 


UU3*i*ill 


ni 37A7 
U 1 C r O r 


1 mL(\ 

\ f f f HM 


1 773^3 
1 r jcHc 




nuv 




PRFCFT unpn ruT 

rnCOCI WUnU 1 


1 371 


Uw3*l*lO 


Wh for 


00^370 
wU*icr U 




r Ti • 


J on 




UU ncwinu 


1 37? 


UU3*I«C 


ni 37A7 
U 1 C r O r 


001 non 

MM 1 wUw 


1 7X346 
1 r jC*tO 




nuv 


41000 opnvy 

9 1 Www f Ur U T A 




1 37T 

Icf J 


UU3*lOU 


ni 37A7 
U 1 C r Or 


A/AAAA 
M^MMMM 


1 7X3X6 
1 r jc JO 




nuv 


4£onon Dnvny 

VHUUUU f nU 1 UA 




1 37A 
1 C r "1 


UU3*lOO 


ni 37A7 
U 1 c r Or 


0000A1 


17XX03 
1 r J JUc 




MOU 

nuv 


461 Fllll 

WO 1 # r Mn 


CFT URTTF OP-TOnF 
OCI WnilC Ur LUUC 


1 37S 

1 C r 3 


AAC£7£ 
UU31 r I 


ni 37A7 
U 1 C r Or 


103X00 
1 Uc JUU 


1 7X344 
1 r JcHH 




MOU 

nuv 


4103X00 CTMCK 

V 1 uc JwU f 0 1 noK 1 


MACK RATA RFI ATFD FRRORC 
nMOK 1 A nCLAICI/ CnnUnO 


1 37^ 
1 cr (1 


nn^^n3 

UU33UC 


nS3777 
U3cr r r 


onnni o 


17X100 
1 r J 1 MM 




pre 


410 arc 
* 1 u « my. 0 


IIIMTRTT RIIC ADDRFCC IMTRFMFMT 
IPiniDl 1 DUO nl/l/nCOO iniLncncnii 


1 377 

1 c r r 


AACC1 A 

Wjj I U 


AA/7A7 
WH f Of 


AAT1 1 3 

MM J 1 1 C 






KD 


pr FVFr 


r,(\ FVFrilTF rOMMAMD 
UU CACLUic Lunnnni/ 


1 3711 
1 c r O 


UU 3 3 1 *• 


AAAp^A 








MOP 

NUr 






1 370 
1 cr T 


WjJ I O 


01 37A7 
U 1 C r O r 


U 1 H J r O 


1 7X1 70 

1 r J 1 r U 




MOU 

nuv 


4MC(;46 FRRP 
V no\j*t u # C n nr 


CFT FRROR rODF 
OC 1 cnnun LUi/C 


1 cou 


UU3 3C1 


00^7A7 
UU1 r O r 


00X^36 
UU J JCO 






ICR 


pr FRrUK 


r,n CUFCt FRRORC 
\jU LnCLN cnnuno 


1 3111 
1 co 1 


UU33 jU 


00S7A7 
UU J r O r 


1 7^3^^ 

1 r jCHI 






TCT 


CFRFI 

OC n r L i 


CFF IF FRROR 
occ ir cnnun 


1 3113 
1 cOc 




nni£n3 

UU 1 HMC 










F T14A3 
r 1 1 Hnc 


IF MnT> RR 

1 r nU 1 • Dn 


1 COj 


UU3 J JO 


noni A7 

UUU 1 Or 


000^66 






IMP 


F T14y 


.CI CF FVIT 
C L OC C A 1 1 


1 CO*l 


ons^A3 

WJJtC 


1 A37A7 

1 OC r O r 


000001 


17X1X6 

1 r J 1 JO 


FT14A3* 

r 1 1 ^nc • 


OUD 


41 FriiT 


'BUMP FC 






n^37A7 
MjC fOf 


000001 


17X1X0 

1 r J 1 JM 




RT T 


fl.FCNT 


;SE: if should BUMP UC 


1 31IA 

1 COO 


UU3 3 JO 


001^0^ 








RFO 


FT14A3 


;IF NOT: BR 


1 3*7 

1 cOr 




1 uc r u r 


000001 


17X1?? 
1 r J 1 c c 






#nuCNT 


;BUnp UC 


1 COO 


UU3300 


nns^A7 

UU J JO r 


17X130 

1 r J 1 CM 




F T14AX • 




RCNT 


;SEE IF DONE ALL 


131IQ 

1 COT 


UU JJIC 


niti ^3S 

Uw 1 JC J 








RMF 
one 


FT14A 


;URITE ALL RECORDS 


13Q0 

1 CTV 


uu jjm 


wwUCtU 








MOP 






13Q1 

1 C~ 1 


UU J J r O 


ni37A7 
U 1 C r o r 


000100 
\l\lw 1 Uw 


1 7X1 14 
1 r J 1 1 *t 




Mnu 

nuv 


#100, RRD .-PRESET RECORD POSITION 


1303 
1 CtC 


UU30U*I 


01 37A7 
U 1 C r O r 


0001 76 

UUw 1 r O 


17X110 
1 r J 1 1 U 




Mnu 

nuv 


#176, RFD 




1 3Q^ 

1 CT J 


nn^<M3 

uu?o 1 c 


nno3£Q 








kinP 

If Ur 






1 3QA 
1 CtH 


nnsAi^ 

uu?o 1 *l 


0137A7 
U 1 C r O r 


1 77701 
1 r r r u 1 


17X106 
1 r J 1 MO 




Mnu 

nuv 


#-77. SCNT 


;SET SPACE AMOUNT 


130S 


nns4^33 

vU^OCC 


01 77f7 

M \ Cf Of 


OOOOXX 


17X146 


r 1 1 "tw • 


Mnu 


#33. FUN 


;SET OP-CODE SPACE REVERSE 


130A 

1 CTO 




00^7^7 
ww"t r D r 


003773 

MMC f 1 C 






ICR 


PC. EXEC 


;G0 EXECUTE COWIAND 


13<J7 
1 C~r 


vv JO J*t 


0137<^7 

V \ Cf Of 


01^6^7 

M 1 ■! W*f f 


1 7X0S? 

1 r JUJC 




Mnu 

nuv 


#HSG48.ERRP 


;SET ERROR CODE 


130ft 

1 C tO 


vv JO*tC 


0n^7A7 
Uw*f r D r 


00X310 

wwJC 1 w 






ICR 

J on 


PC.ERCHK 


;G0 CHECK ERRORS 


13QQ 

1 CTT 


WJOtO 


OnS7A7 
UU J for 


1 7X1 36 

1 r J 1 CD 






TCT 
1 0 1 


SERFL 


;SEE IF ERROR 


1 ^00 


WW Jw JC 


nni 1AA 

WW 1 1 WW 








RNF 
one 


FT14X 


'IF SO: BR 


1 '^01 


nns<^5£ 

wU JO J*f 


0OA7A7 
Uw*f r o r 


000070 

wwVw r V 






ICR 
J on 


PC.FT14RR 


•GO READ REVERSE * CHECK DATA 


1 ^03 

1 JVC 


VV JOOw 


0003^0 

l/wwC*tw 








nur 






1 


wU JOOC 


013767 
w 1 C r w r 


0000X1 

VwwU J I 


1 7X106 

1 r J 1 MO 




Mnu 

nuv 


#31. FUN 


;SET SPACE FORUARD OP-CODE 




WJVf w 


005367 


1 7X0X4 








SCNT 


;SET SPACE AMOUNT 


1 


UU JO r *f 


vu I J J J 








RFO 
DCU 


FT14X 


;IF DONE: BR 


1 ^OA 

1 ^Uv 


WW JO r u 


(\CiL7fk7 


003734 
UwC r c** 






1 CR 
J on 


PC. EXEC 


;G0 EXECUTE COMMAND 


1 M7 


00570? 

WW J r vc 


w 1 C f w f 


U 1 *twc c 


1 7X004 




MOU 

nw v 


#nSG47.ERRP 


;SET ERROR CODE 


MM 


005710 
vv J r 1 w 


0047^7 


00X16? 

WJ 1 1 c 






ICR 
il on 


PC.ERCHK 


;G0 CHECK ERROR 


1 

1 JVT 


00571 A 
WW J r 1 ■! 


00S7^7 

vv^ r D r 


1 7X060 




> 


TCT 
1 0 1 


SERFL 


;SEE IF ERROR FLAG 


1310 


005720 


001143 








BNE 


FT14X 


'IF NO: BR 


1311 


005722 


004767 


000064 






JSR 


PC.FT14RF 


•GO READ FORUARD FOR POSITION 


1312 


005726 


000240 








NOP 




1313 


005730 


005267 








INC 


SCNT 


; DECREMENT SPACE AMOUNT 


1314 


005734 


001535 








BEQ 


FT14X 


;IF DONE: BR 


1315 


005736 


005267 


172756 






INC 


RRD 


;BUMP DATA EXPT 


1316 


005742 


005367 


172754 






DEC 


RFD 


;BUMP DATA EXPT 



TH02/TU45 BASIC 


FUNCTION TEST 


HACY11 


30(1046) 


13-JUN 


n 3 

-78 13:49 PAGE 


38 


CZTUJA, 


P11 07-JUN-78 


16:58 












1317 


005746 


000725 

WWW ■ h V 








BR 


FT14B 




1318 


005750 


000240 

wwwc ~w 






FT14RR . 


NOP 






1319 


005752 


012767 

W 1 b ' W r 


017744 


172724 




NOV 


fRDATA.BADDR 


;SET BA 


1320 


005760 

WW J f WW 


012767 

W I C ' w > 


000077 


173010 




nov 


#77, FUN 


.-SET READ REVERSE OP-CODE 


1321 


005766 

WW J ' WW 


004767 

W~ r W r 


002634 






JSR 


PC, EXEC 


:G0 EXECUTE COMMAND 


1322 


005772 

WW ^ > > 


000240 

WW w t ^ w 








NOP 






1323 


005774 


016705 


172720 






nov 


RRD,R5 




1324 


006000 

WWW WWW 


020577 

Wb w ^ > > 


172602 






CHP 


R5,aFC 


.'SEE IF CORRECT RECORD 


1325 


006004 

W WWW w~ 


001020 

WW ■ WbW 








BNE 


FT14RER 


;IF NOT: BR 


1326 


006006 

W WWW WW 


000167 

WWW ■ w » 


000026 






jnp 


FT14EC 


;G0 CLEAR RH11 ERROR BIT 


1327 


006012 

WWWW 1 b 


000240 






F TURF : 


NOP 






1328 


006014 


012767 


000071 


172754 




HOV 


#71 , FUN 


:SET READ FORWARD OP-CODE 


1329 


006022 

WWWWfc b 


004767 


002600 






JSR 


PC, EXEC 


■GO EXECUTE COMMAND 

0 WW W ^ «• VW ■ V w* tmvw 


1330 


006026 


016705 


172670 






nov 


RFD,R5 




1331 


006032 


020577 


172550 






CHP 


R5,aFC 


.-SEE IF CORRECT RECORD 


1332 


006036 


001003 








BNE 


FT14RER 


:IF NOT: BR 


1333 


006040 


004767 


003676 




FT14EC : 


JSR 


PCINITI 


: CLEAR RH 


1334 


006044 


000207 








RTS 


PC 


;RETURN 


1335 


006046 


000240 






FT14RER 


: NOP 






1336 


006050 


032777 


020000 


172560 




BIT 


#20000. iSUR 


:SEE IF PRINT INHIBITED 


1337 


006056 


001060 








BNE 


FT14R3 


•IF SO: BR 

0m' WW * 


1338 


006060 


012704 


015673 






nov 


#nSFT14,R4 




1339 


006064 


004767 


004276 






JSR 


PC.TTOUT 


:PRINT HEADER 


1340 


006070 


012704 


013441 






nov 


#nSG9.R4 




1341 


006074 


004767 


004266 






JSR 


PCTTOUT 


.-PRINT ERROR TYPE 


1342 


006100 


012704 


013674 






nov 


fnS620,R4 


:SET NiiZ TAG POINTER 


1343 


006104 


032767 


002000 


172672 




BIT 


#2000. UDES 


;SEE If PE 


1344 


006112 


001402 








BEQ 


FT14R0 


: I F NOT . BR 


1345 


006114 


012704 


013702 






nov 


fnSG21 ,R4 


.-ELSE SET PE TAG POINTER 


1346 


006120 


004767 


004242 




FT14R0: 


JSR 


PC.TTOUT 


;PRINT TAG 


1347 


006124 


032767 


000002 


172644 




BIT 


#2, FUN 


:SEE IF READ REVERSE 


1348 


006132 


001003 








BNE 


FT14R1 


:IF SO: BR 


1349 


006134 


012704 


013654 






nov 


fnSG17.R4 




1350 


006140 


000402 








BR 


FT14R2 


;G0 PRINT 


1351 


006142 


012704 


013634 




FT14R1 : 


nov 


fnSG16.R4 

w • t w • ^F 0 " • 




1352 


006146 


004767 


004214 




FT14R2: 


JSR 


PC.TTOUT 


:PRINT FRUD/REV 


1353 


006152 


012704 


013707 






nov 


#nSG22.R4 




1354 


006156 


004767 


004204 






JSR 


PC.TTOUT 


;PRINT EXPT TAG 


1355 


006162 


010503 








nov 


R5.R3 




1356 


006164 


042703 


177700 






BIC 


#177700. R3 


;nASK RECORD NUMBER 


1357 


006170 


004767 


004322 






JSR 


^C.OCTP 


.•PRINT EXPT RECORD NUMBER 


1358 


006174 


012704 


013717 






nov 


#nSG23.R4 




1359 


006200 


004767 


004162 






JSR 


PC.TTOUT 

I V f I 1 WW ■ 


.'PRINT RCVD TAG 


1360 


006204 


017703 


172376 






nov 


aFC,R3 




1361 


006210 


042703 


177700 






BIC 


#177700. R3 

W 1 f ■ ■ W W 0 ^ 


.-MASK RECORD NUnBER 


1362 


006214 


004767 


004276 






JSR 


PC.OCTP 


; PR I NT ACTUAL RECORD NUMBER 


1363 


006220 


005777 


172412 




FT14R3: 


TST 


iSUR 


:SEE IF HALT ON ERROR 


1364 


006224 


100001 








BPL 


FT14X 


:IF NOT: BR 


1365 


006226 


000000 








HALT 






1366 


006230 


005767 


172556 




FT14X: 


TST 


NRZOF 


;SEE IF NRZ ONLY 


1367 


006234 


001011 








BNE 


FT14XX 


:IF SO: BR 




006236 


032767 


nnonnn 


172540 




BIT 


#2000. UOES 


.'SEE IF DONE PE 


1369 


006244 


001005 








BNE 


FT14XX 


;IF SO: BR 


1370 


006246 


012767 


002300 


172530 




nov 


#2300. UDES 


.-SET TO PE 


1371 


006254 


000167 


177132 






jnp 


FT14A1 


:00 IN PE 


1372 


006260 


000167 


174236 




FT14XX: 


jnp 


TSCD2 


: RETURN TO SCHEDULAR 



SEQ 0038 



Tn02/TU45 BASIC 


FUNCTION TEST 


BACV11 


30(1046) 


13-JUN 


N 3 

-78 13:49 PAGE 39 


CZTUJA. 


P11 07-JUN-78 


^.6:58 










SEQ 0039 


1373 












-ERASE 


TEST***** 




137A 


















1375 


UUOcOt 








FT15- 


NOP 






1376 


UUOcOO 


UU J wOr 


172454 






CLR 


STNSK 




1377 




U 1 c r 0 r 


000100 


1 72424 




HOV 


#100,RDYDX 




1376 




V 1 C > Or 


000010 


172420 




MOV 


#10,0PDYX 




1379 


wvO jUv 


V 1 c r Or 


015715 


172362 
1 f c JVC 




HOV 


fnSFT15,EHADDR , 


SET TEST HEADER 


1380 




UUH f Of 


002440 






JSR 

w <j n 


PC^RUND 


REWIND 


1381 


\J\JOjCv 


01P767 
V 1 c * Or 


017744 


172356 




NOV 


fRDATA.BADDR 


SET BA 


1382 




01 ?767 


001 700 


172450 




NOV 


#1700.U0ES 


SET NRZ, NORMAL 


1333 




01P767 

V 1 C 1 Or 


000025 


1 72434 


FT15A- 


NOV 


#25, FUN 


SET ERASE OP-CODE 


1384 


vvD J*f C 


Q1P767 


000200 


1 f C c 




NOV 


#200.RCNT 


SET TO ERASE 128 TINES 


1385 




00^767 

WW*f c W f 


002252 




III • 


JSR 


PC. EXEC 


■GO EXECUTE COMNAND 


1386 




01P767 


014576 


172332 

1 i C J JC 




NOV 


#HSG46,ERRP 


;SET ERROR CODE 


1387 


00636? 


004767 


002470 






JSR 


PCERCHK 


-60 CHECK ERRORS 


1388 




00S7&7 


172406 






TST 


SERFL 


-SEE ir ANY ERRORS 


1389 


006^7? 


001 O^P 
vv 1 \JJC 








BNE 


FT15X 


;IF SO EXIT 


1390 


006^74 




172312 






DEC 


RCNT 


;SEE IF DONE ERASING 


1391 


006A00 


001^^^ 








BNE 


FT15B 


;IF NOT: BR 


1392 


006402 

WWW~ Vw 


000240 








NOP 






1393 


006^0^ 


004767 


002350 






JSR 


PCRUND 


; REWIND 


139A 


OHM 10 


012767 


177600 


172272 




NOV 


«-200,UCNT 


;SET UC 


1395 


006& 1 6 


012767 


000071 


172352 




NOV 


#71, FUN 


;SET READ FORWARD OP-CODE 


1396 


006424 


012767 


000040 


172272 




NOV 


#40.RDYDX 


;SET DELAY 


1397 


006432 


004767 


002170 






JSR 


PCEXEC 


;G0 EXECUTE COMMAND 


1398 


006436 


000240 








NOP 






1399 


006440 


012767 


015172 


172246 




NOV 


#nSG60,ERRP 


;SET ERROR CODE 


1400 


006446 


012767 


020000 


172272 




HOV 


#20000, sinsK 




1401 


006454 


004767 


002376 






JSR 


PCERCHK 


;G0 CHECK ERRORS 


1402 


006460 


000167 


174036 




FT15X: 


JNP 


TSCD2 


.•RETURN TO SCHEDULAR 



TN02/TUA5 BASIC FUNCTION TEST 
C2TUJA.P11 07-JUN-78 16:58 



B 4 
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SEQ 0040 



1403 












; TAPE 




1404 


















1405 


006464 


000240 






FT16: 


NOP 






1406 


006466 


012767 


000001 


172230 




MOV 


fl ,RDYDX 




1407 


006474 


012767 


001000 


172224 




NOV 


#1000,OPOYX 




1408 


006502 


012767 


015737 


172166 




NOV 


«nSFT16,EnADDR ; 


SET HEADER 


1409 


006510 


012767 


001700 


172266 




HOV 


«1700,UDES ; 


SET TO NRZ,N0RnAL,0DD 


1410 


006516 


004767 


002236 




FT16A: 


JSR 


PCRUND i 


REUIND 


1411 


006522 


012767 


177760 


172156 


FT166: 


NOV 


#-20.FCNT 


FC-20 


1412 


0065^0 


012767 


177770 


172152 




nov 


«-10,UCNT 


UC=10 


1413 


006536 


012767 


000027 


172232 




nov 


#27, FUN 


SET WRITE TAPE NARK OP-CODE 


1414 


006544 


004767 


002056 






JSR 


PC, EXEC 


GO EXECUTE COnnAND 


1415 


006550 


012767 


001000 


172170 




nov 


«1000,STNSK 


SET FOR FCE nASK 


1416 


006556 


012767 


013523 


172130 




nov 


#nSG12,ERRP 


SET ERROR CODE 


1417 


006564 


004767 


002266 






JSR 


PCERCHK 


GO CHECK ERROR 


1418 


006570 


004767 


002624 






JSR 


PCTnCHK 


GO SEE IF Tn SET 


1419 


006574 


012767 


000077 


172174 




nov 


#77, FUN 


■SET USED REVERSE OP-CODE 


1420 


006602 


004767 


002020 






JSR 


PC, EXEC 


■GO EXECUTE COnnAND 


1421 


006606 


012767 


001000 


172132 




nov 


«1000,STnSK 


SET FCE ERROR nASK 


1422 


006614 


012767 


013541 


172072 




nov 


«nSG13,ERRP 


SET ERROR CODE 


1423 


006622 


004767 


002230 






JSR 


PCERCHK 


■GO CHECK ERRORS 


1424 


006626 


004767 


002566 






JSR 


PCTnCHK 


;G0 SEE IF Tn SET 


1425 


006632 


012767 


000071 


172136 




nov 


#71 ,FUN 


;SET READ FORWARD OP-CODE 


1426 


006640 


004767 


001762 






JSR 


PC, EXEC 


;G0 EXECUTE COWIAND 


1427 


006644 


012767 


013566 


172042 




nov 


fnSG14,ERRP 


;SET ERROR CODE 


1428 


006652 


004767 


002200 






JSR 


PCERCHK 


;T0 CHECK ERRORS 


1429 


006656 


004767 


002536 






JSR 


PCmCHK 


;G0 SEE IF TH SET 


1430 


006662 


032767 


002000 


172114 




BIT 


f2000,UDES 


;SEE IF DONE PE 


1431 


006670 


001012 








BNE 


FT16X 


;IF SO: BR 


1432 


006672 


005767 


172114 






TST 


NRZOF 


;SEE IF NR2 ONLY 


1433 


006676 


001007 








BNE 


FT16X 


;IF SO: BR 


1434 


006700 


012767 


002300 


172076 




nov 


#2300, UDES 


;SET PE, NORnAL 


1435 


006706 


004767 


003030 






JSR 


PCINIT! 


; INITIALIZE 


1436 


006712 


000167 


177604 






JMP 


FT16B 


;D0 IN PE 


1437 


006716 


004767 


002754 




FT16X: 


JSR 


PC, ITER 


;D0 ITERATIONS 


1438 


006722 


000167 


173574 






jnp 


TSCD2 


; RETURN TO SCHEDULAR 


1439 
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SEQ 0041 



1440 


















1441 












; TAPE 






1442 


















1443 


006726 


005067 


171760 




FT17: 


CLR 


RCNT 




1444 


006732 


012767 


016000 


171736 




NOV 


#NSFT17,ENADDR . 


SET HEADER 


1445 


006740 


012767 


001700 


172036 




NOV 


#1700. UDES 


SET TO NR2 


1446 


006746 


004767 


002006 




FT17A: 


JSR 


PC.RUND 


REWIND TAPE 


1447 


006752 


012767 


000027 


172016 


FT17B: 


NOV 


#27. FUN 




1448 


006760 


012767 


040000 


171736 




NOV 


#40000. RDYDX 


SET DRY DELAY 


1449 


006766 


012767 


040000 


171732 




NOV 


#40000. OPDYX 


SET OP DELAY 


1450 


006774 


004767 


001626 






JSR 


PC. EXEC 


GO WRITE TN 


1451 


007000 


012767 


102300 


171740 




NOV 


#102300. STNSK 


NASK DATA RELATED ERRORS 


1452 


007006 


012767 


013613 


171700 




NOV 


#NSG15,ERRP 


SET ERROR TYPE 


1453 


007014 


004767 


002036 






JSR 


PC.ERCHK 


GO CHECK ERROR 


1454 


007020 


005767 


171754 






TST 


SERFL 


SEE IF ERROR 


1455 


007024 


001144 








BNE 


FT17X 


IF SO: BR 


1456 


007026 


004767 


002366 






JSR 


PC.TNCHK 


GO SEE IF TN SET 


1457 


007032 


000240 








NOP 






1458 


007034 


000240 








NOP 






1459 


007036 


032767 


000100 


171646 




BIT 


#100, RCNT 


SEE IF DONE PATTERN 


1460 


007044 


001046 








BNE 


FT170 


■IF SO: BR 


1461 


007046 


062767 


000020 


171636 




ADD 


#20, RCNT 


■ADD 20 TO RECORD COUNT 


1462 


007054 


016767 


171632 


171656 




NOV 


RCNT.TENP1 


;SAVE RECORD COUNT 


1463 


007062 


012767 


177600 


171620 




NOV 


#-200,WCNT 


;WC=128 


1464 


007070 


012767 


177400 


171610 




NOV 


#-400,FCNT 


■FC=256 


1465 


007076 


012767 


016232 


171600 




NOV 


#yDATA,BADOR 


'BAsWRITE BUFFER 


1466 


007104 


012767 


000061 


171664 




NOV 


#61, FUN 


;SET WRITE OP CODE 


1467 


007112 


000240 






FT17C: 


NOP 




1468 


007114 


000240 








NOP 






1469 


007116 


004767 


001504 






JSR 


PC, EXEC 


■GO WRITE 


1470 


007122 


012767 


013523 


171564 




NOV 


#NSG12.ERRP 


;SET ERROR CODE 


1471 


007130 


012767 


102300 


171610 




NOV 


#102300, STNSK 


;NASK DATA RELATED ERRORS 


1472 


007136 


004767 


001714 






JSR 


PCERCHK 


;G0 CHECK ERROR 


1473 


007142 


005767 


171632 






TST 


SERFL 


;SEE IF ERROR 


1474 


007146 


001073 








BNE 


FT17X 


;IF SO: BR 


1475 


007150 


005367 


171564 






DEC 


TENP1 


■SEE IF DONE ALL 


1476 


007154 


001356 








BNE 


FT17C 


■IF NOT: BR 


1477 


007156 


000167 


177570 






JNP 


FT17B 


■ELSE GO DO TN 


1478 


007162 


000240 






FT170: 


NOP 






1479 


007164 


012767 


000033 


171604 




NOV 


#33, FUN 


■SET SPACE REVERSE 


1480 


0071 72 


012767 


013634 


171514 




NOV 


#NSG16.ERRP 


■SET ERROR CODE 


1481 


007200 


012767 
012767 


177600 


171522 


FT17D1: 


NOV 


#-200,SCNT 


■SET TO 200 RECORDS 


1482 


007206 


000005 


171476 




NOV 


#5, RCNT 


■SET NUNBER OF OPS TO DO 


1483 


007214 


004767 


002522 




FT17E: 


JSR 


PCINITI 


■GO INIT 


1484 


007220 


004767 


001402 






JSR 


PC, EXEC 


■GO SPACE 


1485 


007224 


012767 


001000 


171514 




NOV 


#1000. STNSK 


■SET ERROR NASK 


1486 


007232 


004767 


001 62C 






JSR 


PC.ERCHK 


■GO CHECK ERROR 


1487 


007236 


005767 


171536 






TST 


SERFL 


SEE IF ERROR 


1488 


007242 


001035 








BNE 


FT17X 


IF SO: BR 


1489 


007244 


004767 


002150 






JSR 


PC.TNCHK 


GO SEE IF TN SET 


1490 


007250 


005367 


171436 






DEC 


RCNT 


SEE IF DONE SPACES 


1491 


007254 


001357 








BNE 


FT17E 


IF NOT: BR 


1492 


007256 


022767 


000031 


171512 




CNP 


#31. FUN 


SEE IF DONE FORWARD 


1493 


007264 


001410 








BEQ 


FT17F 


IF SO: BR 


1494 


007266 


012767 


013654 


171420 




NOV 


#NSG17,ERRP 


SET ERROR CODE 


1495 


007274 


012767 


000031 


171474 




NOV 


#31. FUN 


SET TO SPACE FORWARD 
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SEQ 0042 



1496 007302 000167 177672 JHP FT17D1 

1497 007306 032767 002000 171470 FT17F: BIT #2000. UDES 

1498 007314 001010 BNE FT17X 

1499 007316 005767 171470 TST NRZOF 

1500 007322 001005 BNE FT17X 

1501 007324 012767 002300 171452 HOV #2300. UOES 

1502 007332 000167 177410 JHP FT17A 

FT17X: JHP TSCD2 



1503 007336 000167 173160 



DO FORWARD 
SEE IF DONE PE 
IF SO: BR 
SEE IF NRZ ONLT 
IF SO: BR 
SET TO PE 
GO PE 

RETURN TO SCNEDULAR 
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1 504 














1 SOS 














1 S06 














1 S07 


00754? 


000?40 






FT20- 


NOP 


1 SOS 


007544 


01 2767 


016026 


1 71 324 




MOV 


1 S09 


007352 


004767 


001402 






JSR 


1510 


007356 


012767 


000003 


1 71422 




MOV 


1511 


007364 


004767 


002070 

WW w W f W 






JSR 

w w n 


IS'? 


007370 


012767 


016232 


171306 




MOV 


1513 


007376 


012767 


177400 


171302 




MOV 


1514 


007404 


012767 


1 77600 


171276 




MOV 


1515 


007412 


012767 


001700 

WWII w 


171364 




MOV 


1 516 


007420 


012767 


000061 

WWWWW ' 


171350 


FT20A: 

lib vn • 


MOV 

ri w » 


1517 


007426 


004767 


001174 






JSR 


1518 


007432 


012767 


014576 


171254 




MOV 


1519 


007440 


004767 


001412 






JSR 


1520 


007444 


005767 


171330 






TST 


1521 


007450 


001050 








BNE 


1522 


007452 


012767 


013634 


171234 




MOV 


1523 


007460 


012767 


000057 


171310 




MOV 


1524 


007<>66 


062767 


000376 


171210 




ADD 


1525 


007474 


004767 


001126 






JSR 


1526 


007500 


004767 


001352 






JSR 


1527 


007504 


012767 


013654 


171202 


FT20B: 


NOV 


1528 


007512 


012767 


000051 


171256 




NOV 


1529 


007520 


161767 


000376 


171156 




SUB 


1530 


007526 


004767 


001074 






JSR 


1531 


007532 


004767 


001320 






JSR 


1532 


007536 


032767 


002000 


171240 


FT20C: 


BIT 


1533 


007544 


001012 








BNE 


1534 


007546 


005767 


171240 






TST 


1535 


007552 


001007 








BNE 


1536 


007554 


012767 


002300 


171222 




NOV 


1537 


007562 


004767 


002154 






JSR 


1538 


007566 


000167 


177626 






J MP 


1539 


007572 


004767 


002100 




FT20X: 


JSR 


1540 


007576 


000167 


172720 






JNP 



E 4 

JUN-78 13:49 PAGE 43 
TE CHECK TEST********** 



fMSFT20,ENADDR , 


SET HEADER 


PCRUND :REyiND 


#3 PATRN 




PC-DSUP 


GO SET PATTERN 3 


fUDATA.BADDR 


SET BA 


#-400, FONT 


SET FC 


#-200, WONT 


SET UC 


#1700.UDES 


SET NRZ NORMAL 


#61. FUN 


SET WRITE OP CODE 


PC, EXEC 


GO WRITE RECORD 


#NSG46.ERRP 


SET ERROR CODE 

Wte ■ W«'»»W*» V W ir W 


PC.ERCHK 


GO CHECK ERROR 


SERFL 


'SEE IF ERORR 


FT20X 


■IF SO: BR 


#nSG16,ERRP 


SET REVERSE ERROR TAG 


#57. FUN 


;SET REVERSE WRITE CHECK OP-CODE 


#376.BADDR 


;SET BA FOR REVERSE CHECK 


PC.EXEC 


;G0 00 REVERSE CHECK 


PC.ERCHK 


;60 CHECK ERROR 


#NSG17,ERRP 


;SET FORWARD TAG 


#51. FUN 


;SET FORWARD CHECK OP CODE 


#376.BADDR 


;SET BA FOR FORWARD CHECK 


PC.EXEC 


;G0 00 FORWARD CHECK 


PC.ERCHK 


;60 CHECK ERROR 


#2000. UDES 


;SEE IF DONE PE 


FT20X 


;IF SO: BR 


NRZOF 


;SEE IF NRZ ONLY 


FT20X 


;IF SO: BR 


#2300, UDES 


;ELSE SET PE 


PC.INITI 


;G0 INIT 


FT20A 


;D0 IN PE 


PC. ITER 


;D0 ITERATIONS 


TSCD2 


;RETURN TO SCHEDULAR 



F 4 
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1541 
1542 










.■ERASE 


HEAD TEST****t 




1543 
















1544 


007602 


012767 


016057 


171066 


FT21: nOV 


fnSFT21.EnADDR ;SET TEST HEADER 


1545 


007610 


004767 


001144 




JSR 


PC.RUND :G0 REWIND 


1546 


007614 


012767 


000003 


171164 


nov 


f3,PATRN 




1547 


007622 


004767 


001632 




JSR 


PC.DSUP ; 


GO SET PATTERN 3 


1548 


007626 


012767 


016232 


171050 


nov 


«UDATA,BADDR 


SET BA^URITE BUFFER 


1549 


007634 


012767 


1 76340 


171044 


nov 


f-1440,FCNT 


SET FCsBOO 


1550 


007642 


012767 


177160 


171040 


nov 


#-620,UCNT 


SET UC-400 


1551 


007650 


012767 


001700 


171126 


nov 


#1700,UDES : 


SET NRZ, NORnAL 


1552 


007656 


012767 


000061 


171112 


nov 


#61,FUN ; 


SET yRlTE OP-CODE 


1553 


007664 


004767 


000736 




JSR 


PC, EXEC 


GO DO WRITE 1 


1554 


007670 


012767 


013523 


171016 


nov 


#nSG12,ERRP 


SET ERROR CODE 


1555 


007676 


004767 


001154 




JSR 


PCERCHK 


GO CHECK FOR ERROR 


1556 


007702 


004767 


000720 




JSR 


PC, EXEC 


YES DO WRITE 2 


1557 


007706 


004767 


001144 




JSR 


PCERCHK 


YES CHECK FOR ERROR 


1558 


007712 


000240 






NOP 






1559 


007714 


004767 


001040 




JSR 


PC.RUND 


GO REWIND 


1560 


007720 


012767 


177160 


170760 


nov 


#-620,FCNT 


SET FC=400 


1561 


007726 


012767 


177470 


170754 


nov 


#-310,UCNT 


SET WC=200 


1562 


007734 


004767 


000666 




JSR 


PC. EXEC 


GO REWRITE RECORD 1-WH TO EH 


1563 


007740 


000240 






FT21A: NOP 






1564 


007742 


004767 


001012 




JSR 


PCRUND 


.REWIND 


1565 


007746 


012767 


017744 


170730 


nov 


#RDATA.BADDR 


;S£T BA=READ BUFFER 


1566 


007754 


012767 


177160 


17072a 


nov 


#-620.FCNT 


;SET FC=400 


1567 


007762 


012767 


177470 


170720 


nov 


#-310,UCNT 


;SET WC=200 


1568 


007770 


012767 


000071 


171000 


nov 


#71. FUN 


;SET READ OP-CODE 


1569 


007776 


004767 


000624 




JSR 


PC, EXEC 


GO READ RECORD 1 


1570 


010002 


012767 


013566 


170704 


nov 


#nSG14.ERRP 


;SET ERROR CODE 


1571 


010010 


004767 


001042 




JSR 


PCERCHK 


;G0 CHECK FOR ERROR 


1572 


010014 


000240 






NOP 






1573 


010016 


052777 


000010 


170564 


BIS 


fio.acs 


; INHIBIT BA INCREHENT 


1574 


010024 


012767 


176340 


170654 


nov 


#-1440, FCNT 


;SET FC^SOO 


1575 


010032 


012767 


177160 


170650 


nov 


#-620,UCNT 


;SET WC=400 


1576 


010040 


004767 


000562 




JSR 


PCEXEC 


;G0 READ RECORD 2 


1577 


010044 


022777 


001440 


170534 


cnp 


#1440, iFC 


;SEE IF READ RECORD 2 


1578 


010052 


001410 






BEQ 


FT21X 


;IF SO: BR 


1579 


010054 


012767 


014474 


170654 


nov 


#nSG44,ERADD 


;SET ERROR CODE 


1580 


010062 


012767 


007740 


170672 


nov 


#FT21A,SC0LP 


;SET SCOPE ADDRESS 


1581 


010070 


004767 


173364 




JSR 


PC,FT3ER 


;G0 PRINT ERROR 


1582 


010074 


004767 


001576 




FT21X: JSR 


PCITER 


;G0 SEE IF ITERATION 


1583 


010100 


000167 


172416 




jnp 


TSC02 


; RE TURN TO SCHEDULAR 


1584 
















1585 
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4 

PAGE 



A5 



SEO 0045 



1586 












:BUFFERED COHHAND TEST***** 


1587 


















1588 


01010A 


012767 


016106 


170564 


FT22: 


nov 


fNSFT22.ENADDR 


.-SET TEST HEADER 


1589 


010112 


004767 


000642 






JSR 


PC.RUND 


:G0 REWIND 


1590 


010116 


012700 


000003 






NOV 


f3,R0 


:SET NUMBER OF WRITES 


1591 


010122 


012767 


001700 


170654 




NOV 


#1700.UDES 


:SET TO NR2 NORMAL 


1592 


010130 


012767 


016232 


170546 




NOV 


fUDATA.BADDR 


:SET BA=WRITE BUFFER 


1593 


010136 


012767 


177000 


170542 




NOV 


#-1000, FCNT 


;SET FC=1000 


159A 


010U4 


012767 


177400 


170536 




NOV 


«-400,UCNT 


:SET WC=400 


1595 


010152 


012767 


000061 


170616 




NOV 


«61,FUN 


;SET WRITE OP-CODE 


1596 


010160 


004767 


000442 




FT22A: 


JSR 


PC, EXEC 


;60 DO WRITE 


1597 


010164 


005300 








DEC 


RO 


;SEE IF DONE ALL 


1598 


010166 


001374 








BNE 


FT22A 


;IF NOT: BR 


1599 


010170 


000240 








NOP 






1600 


010172 


012777 


000007 


170400 




NOV 


«7,aci 


: START REWIND 


■•601 


010200 


032777 


000200 


170404 


FT22B: 


BIT 


#200, aos 




1602 


010206 


001774 








BEQ 


FT22B 




1603 


010210 


012767 


000010 


170506 




NOV 


flO.ROYOX 


;SET LONG READY DELAY 


1604 


010216 


004767 


000404 






JSR 


PCEXEC 


: ISSUE BUFFERED WRITE 


1605 


010222 


000240 








NOP 






1606 


01022A 


012767 


014674 


170462 




NOV 


fNS649,ERRP 


.-SET ERROR CODE 


1607 


010232 


012767 


102300 


170506 




NOV 


#102300, STNSK 


:NARK DATA ERROR 


1608 


010240 


004767 


000612 






JSR 


PCERCHK 


;G0 CHECK ERROR 


1609 


010244 


032777 


000002 


1 70340 




BIT 


#2,aos 


:SEE IF BOT IS SET 


1610 


010252 


001410 








BEQ 


FT22X 


:IF NOT: BR 


1611 


010254 


012767 


014722 


170454 




NOV 


#NSG50,ERADD 


;SET ERROR CODE 


1612 


010262 


012767 


010104 


170472 




NOV 


#FT22,SCOLP 




1613 


010270 


004767 


173164 






JSR 


PC,FT3ER 


:60 DO ERROR 


16U 


010274 


004767 


001376 




FT22X: 


JSR 


PC. ITER 


;60 SEE IF ITERATION 


1615 


010300 


000167 


172216 






JNP 


TSCD2 


.•RETURN TO SCHEDULAR 


1616 
1617 
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H 



HACYll 30(1046) 13-JUN-78 13:A9 



4 

PAGE 



A6 



SEa 0046 



1618 










1619 










1620 


010304 


005767 


170372 




1621 


010310 


001103 






1622 


010312 


012767 


016143 


170356 


1623 


010320 


004767 


001416 




162A 


010324 


012767 


A A 4 ^ A A 

001 700 


170452 


1625 


010332 


012767 


016232 


170344 


1626 


010340 


012767 


177400 


170340 


1627 


010346 


A 4 M ^ 

012767 


1 77600 


4 ^ A W / 

170334 


1628 


010354 


A 4 £ ^ 

012767 


A A A A ^ 4 

000061 


4 ^A / 4 / 

170414 


1629 


010362 


A A 1 ^ 

004767 


A A A*) i A 

000240 




1630 


010366 


A A A *\ 4 A 

000240 






1631 


010370 


A A 4 ^ 

004767 


A A 4 ^ § £. 

001346 




1632 


010374 


A 4 ^ 7 

012767 


AAAA'%4 

000021 


4 7AT 7 i 

170374 


1633 


010402 


A A 1 ^ d.^ 

004767 


AAA*^^ A 

000220 




1634 


010406 


A A r A A A 

005000 






1635 


A 4 A J 4 A 

010410 


A4 <^^AT 

012703 


A AAA A / 

000004 




1636 


A 4 A J 4 i 

010414 


032777 


A'\AAAA 

020000 


4 7A 4 7 A 

1 701 70 


1637 


A 4 A J ^ ^ 

010422 


A A ^ i 

001404 






1638 


A4 A J ^ y 

010424 


A Af T AA 

005300 






1639 


A4 A4 

010426 


AA4 

001 372 






1640 


A4 A 4 9 A 

010430 


A A f V A V 

005303 






1641 


A 4 A ^ 9 ^ 

010432 


AA4 

001370 






1642 


A 4 A / 9 / 

010434 


032777 


AAAAA^ 

000002 


4 7A4 CA 

170150 


1643 


A 4 A / / ^ 

010442 


AA 4 A4 A 

001010 






A M M t 

1644 


A 4 A / 1 i 

010444 


A4 ^ 

012767 


A 4 / 7^ A 

014760 


1 70264 


1645 


A 4 A / f ^ 

010452 


A4 7 

012767 


A4 ATA/ 

010304 


1 70302 


1646 


A 4 A / ^ A 

010460 


AA/ 7^ 7 

004767 


4 

1 727 fh 




1647 


A4 A J ^ ^ 

010464 


A4 '^9A4 

012701 


4/4 AAA 

1h 1000 




1648 


A 4 A J ^ A 

010470 


A 4 ^ Y A A 

016700 


4 7A4 VX. 

170136 




4 ^ / A 

1649 


A4 Ay 7i 

010474 


A^A4 1 A 

020110 






1030 


Ai A/ 7X 


AA1 / 1 A 






1651 


010500 


012767 


015014 


170230 


1652 


010506 


012767 


010304 


170246 


1653 


010514 


004767 


172450 




1654 


010520 


000167 


171776 




1655 










1656 











;READ-IN PRESET TESTi 



FT23: 



FT23C: 



FT23X: 



V T 

TST 


SLVN 


:Scc IF SLAVc ScLcCT=0 


BNc 




. 1 r UAT • DD 

;IF NDT:eR 


MAK 

nov 


f nSr T23,cnADDK 


•CCT TCCT UCAnCfi 

;9CT TcST HcADcR 


JSk 


Br ff u 1 T i 
PC , INI T 1 


- r A ff M ff T 

;uO INIT 


nov 


iii 7AA 1 (AC C 


• CCT TA klD7 klADMAI 

, Sc 1 lU HnL NORnAL 


MAII 

nov 


ilLJAATA DAAAD 

fWDAI A^dADDK 


«CCT DA— UDITe DIICCeD 


nuv 




■ CCT c r — / AA 
; St 1 rC-^UU 


MAII 

nov 


f "i00,WCNI 


; Sc 1 WC-cUU 


MAK 

nov 


jiiL 1 tail 


•CCT UDITC AD.rAAC 

;Stl WKilC Ur~CUDC 


JSR 


Dr ever 


• r A r\ A UD T TC 
; uU UU WKl 1 C 


MAD 

NOr 






1 CD 


Dr 1 Mf T1 

PC , INI 11 


• IMITIAI I7C 
; INl 1 lALlZC 


MAIi 

nuv 


HOi CUM 

f c 1 , r UN 


• CCT DCAn^iM DDCccT AD mnc 
i Sc 1 NCAD'IN rnCSC 1 Ur lUDC 


JSR 


Dr ever 
PC ,cXcC 


• fin nn rnmiiftin 
;uu UU cunnANu 


CLR 


DA 

RU 




MAIi 

nov 


ML aX 


• CCT Ml II T 

; Sc 1 nuL 1 


D f T 
Dl 1 




•CCC IC DID DCCCT 

;SCt ir rlr KcaCI 


DC A 


r 1 cjo 


. I C C A . QB 

; 1 r SU : UK 


AC t 

Del. 


on 




QMC 


r I«jA 


•AUAIT DID DCCCT 
HAWAII rlr NcScI 


Del 


R J 




BMC 


r 1 c jA 


• |\C| A V 
, UCLA T 


D t T 
Dl 1 


f £ ,iD9 


• CCC T t DAT 

;SCC Ir DU 1 


DMC 

oNc 


c T57r 


•ft CA - DD 

; 1 r SU : on 


MAII 

nuv 


*nSu J 1 , CKAUU 


•CCT CDDAD rnnc 
; Sc 1 CKKUK lUDc 


MAII 

nuv 








PC FT^FR 


■GO DO ERROR 

f WW i/w Lnnwn 


nov 


#141000, R1 


;SET EXPT TC 


nov 


TC.RO 


;SET TC ADDRESS 


cnp 


R1,(R0) 


;SEE IF EXPT=RCVD 


BEQ 


FT23X 


;IF SO: BR 


nov 


«nSG52,ERA00 


;SET ERROR CODE 


nov 


#FT23,SCOLP 


.CLEAR SCOPE ADDRESS 


JSR 


PC.FT2ER 


;G0 DO ERROR 


JHP 


TSC02 


.RETURN TO SCHEDULAR 



TH02/TU45 BASIC fUNCTIOl 
CZTUJA.P11 07-JUN-78 

1657 
1658 

1659 010524 032777 

1660 010532 001033 

1661 010534 012767 

1662 010542 004767 

1663 010546 012777 

1664 010554 012700 

1665 010560 005300 

1666 010562 001376 

1667 010564 032777 

1668 010572 001407 

1669 010574 005067 

1670 010600 012767 

1671 010606 004767 

1672 010612 012704 

1673 010616 004767 

1674 010622 000167 
1675 

1676 



TEST HACYll 30(1046) 
16:58 



004000 170104 FT24: 

016176 170134 
001174 

000003 170024 
004000 

FT24A: 

010000 170020 
170162 

015033 170130 
172646 

015057 FT24X: 
001544 

171674 FT24XX: 



I 4 

13-JUN-78 13:49 PAGE 



.'REWIND: OFF LINE TEST 



BIT 


#4000. asuR 


BNE 


FT24XX 


nov 


«NSFT24.ENADDR 


JSR 


PC.INIT1 


nov 


«3.aci 


NOV 


f 4000.ro 


DEC 


RO 


BNE 


FT24A 


BIT 


#ioooo.aos 


BEQ 


FT24X 


CLR 


SCOLP 


nov 


fNSGS3.ERADD 


JSR 


PC.FT3ER 


NOV 


fNSGS4.R4 


JSR 


PC.TTOUT 


JHP 


TSCD2 



47 



SEO 004 7 



SEE IF IN CONTINUOUS NODE 

IF SO: BR 

SET TEST HEADER 

GO INITIAIZE 

ISSUE REWIND: OFF LINE CONNAND 
DELAY 

SEE IF NOL IS RESET 
IF SO: BR 
ASSURE NO SCOPE 
SET ERROR CODE 
GO DO ERROR 

PRINT ON LINE REQUEST 
RETURN TO SCHEDULAR 



TH02/TUA5 BASIC FUNCTIOV TEST 
CZTUJA.Pn 07-JUN-78 16:58 



HACY11 30(10A6) 13-JUN-78 13:A9 



PAGE A8 



SEO 00A8 



1677 












.COMMAND EXECUTE 


1678 
















1679 


010626 


AAA*)/ A 

0002A0 






ever. 

EXEC : 


NOP 




1 d. DA 


Ai A^ YA 

010630 


0567 7f 


i 7Ai CA 

1 rOl 50 


1 1.777/ 




BIS 


UDES.iTC 


16ol 


A4 AZ. 

010636 


Ai Z 

016777 


i 7AAy L. 
1 700A6 


i ^777^ 

167 f 36 




MOV 


UCNT.IUC 


1682 


AI A^ / / 

0106hA 


Ai ^ 777 

016777 


i 7AAVZ. 

1 70036 


16f f 3A 




MOV 


FCNT .BFC 


1605 


A1 A^ C ^ 

010652 


Ai ^777 

016f r r 


1 7AA'5^ 

1 r00Z6 


1 6f f CH 




MOV 


BADDR .iBA 


16o% 


01 0660 


A'5'57^7 

Odd for 


AAAA7 i 
000031 


1 7Ai i A 

1 f 01 1 0 




CMP 


#31 ,FUN 


1685 


Ai A^^^ 

010666 


AAi / Ay 
001 AO*t 








BEQ 


EXECA 


16o6 


Ai A^ 7A 

0106r0 




AAAATT 
000033 


1 7Ai AA 

1 f 01 UO 




CMP 


#33, FUN 




Ai A^7^ 

01 06 r 6 


AAi AAT 
001003 








n Alp 

BNE 


cXcCo 


i ^ Aft 


l)i A7AA 
0 lOf 00 


Ai iL777 
01 6f r r 


1 7AAO/ 
1 f OOtH 


1 iL77AA 
lOf f 00 


c V c r A • 


MOV 


SCNT ,aF t 


1689 


Ai A7A/ 

01 Or 06 


AAA*)/ A 

OOOcAO 






C V C • 

cXcCB : 


NOP 




16V0 


Ai A7i A 
OlOf 10 


Ai ^777 
016f ' f 


1 7AA^0 

1 r 006c 


16r66^ 




MOV 


FUN.iC 1 




Ai n7i A 

OlOf 16 


AAAOZn 

OOOchO 








UAB 

NOP 






AI A7^n 
OlOr £0 


AI A7nT 

016/^03 


1 rllUUU 






MOV 


KDYDX,R3 




Ai A7'5/ 

OlOr C*» 


AAC.^A/ 

005uO*t 








CLR 


Rs 


lo9^ 


Ai A70^ 

01 Or c6 


A10777 


AAAOAA 

OOOcOO 


lorojo 


c y c r r • 


DlT 


#£00 , IDS 


1 IC 




AA1 AAA 








oNc 


c V c r V 


1 <;OA 
I070 


AI A7TA 
UlUr j6 


AACTAA 








DEC 




1 A07 


AI A7/.A 


AA1 770 
001 JIC 








DUE 


cXcll 


1 OtO 


MmLO 
U I Uf He 










DEC 


R3 


1699 


0107AA 


001370 








BNE 


EXECC 


1700 


010746 


016703 


16775A 




EXECX: 


NOV 


0PDYX,R3 


1701 


010752 


005303 






EXECXA: 


DEC 


R3 


1702 


01075A 


001376 








BNE 


EXECXA 


1703 


010^56 


000207 






EXECXX: 


RTS 


PC 


170A 

















LOAD TAPE CONT 
LOAD UC 
LOAD FC 
LOAD BA 

SEE IF SPACE FORWARD 
IF SO: BR 

SEE IF SPACE REVERSE 

IF NOT: BR 

SET SPACE COUNT 

:LOAD OP-CODE * GO 

:SET DELAY 

;SEE IF DRY 
:1F SO: BR 

.DELAY FOR DRY 

; DELAY 

:RETURN TO CALLER 



TH02/TUA5 BASIC FUNCTION TEST 
C2TUJA.P11 07-JUN-78 16:58 



MACY11 30(1046) 



1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 



010760 
010762 
010766 
010774 
011000 
011002 
011004 
011012 
011014 
011022 
011024 
011030 
011034 
011040 
011044 
011050 
011054 



000240 
004767 
012777 
012700 
005300 
001376 
032777 
001374 
032777 
001012 
016704 
004767 
012704 
004767 
000167 
004767 
000207 



000754 

000007 167604 
040000 



RUND: 



RUNDA: 



020000 167600 RUNDB: 

000002 167570 

167646 
001332 
013234 
001322 
171452 

000666 RUNDX: 



K 4 

13-JUN-78 13:49 PAGE 49 

SEQ 0049 

;REUIND SUBROUTINE***** 



NOP 






JSR 


PC.INITI 
#7,iCl 


; INIT 


nov 


.■START REUIND 


nov 


«y AAAA BA 

#40000, RO 


Dr C 


RO 




BNc 


RUNDA 


;DELAY 


O t T 


f ^UUUO.iDS 




BNc 


KWNDo 


;AUAIT PIP 


Rl T 




• CPP IF nnT 

, 9CC 1 1 DU 1 


BNE 


RUNDX 


;IF SO: BR 


nov 


EnADDR,R4 




JSR 


PC.TTOUT 


;PRINT HEADER 


nov 


#nS62.R4 




JSR 


PCTTOUT 


.•PRINT REUIND ERROR 


jnp 


TSCD2 


.•RETURN TO SECHEDULAR 


JSR 


PC.INITI 


;1NIT 


RTS 


PC 


.•RETURN TO CALLER 



TH02/T"<.5 BASIC 


FUNCTION TEST 


HACY11 


30(1046) 


13-JUN 


L 4 

-78 13:49 PAGE 


50 


C2TUJA. 


P11 07-JUN-78 


16:58 










SFQ 0050 


1725 












-ERROR 


CHECK SUBROUTINE 


tttt* 


1726 


















1727 


w 1 1 V Jv 


005067 


167716 




ERCHK : 


CLR 


SERFL 


; CLEAR FLAG 


1728 




017767 

W I r r V f 


167524 


167662 




nov 


SDS.DSAV 


■SAVE DRIVE STATUS REGISTER 

fwnvb irOAVb «#iniv«# nkVA»^'bn 


1729 


011070 


05?777 


040000 


167514 




BIT 


#40000. SDS 


•SEE IF ERROR 


1730 


01 1076 

VI 1 V r V 


001001 

W 1 VV 1 








BNE 


ERPT 


■IF SO: BR 


1731 


011100 


000?07 

V VVC V f 








RTS 


PC 


.■RETURN 


1732 


011102 

VIII Vb 


017704 


167506 




ERPT : 


nov 


iER,R4 


■GET ERROR REGISTER 

# W k 1 k ■ • •* V ■« •«kWawlb>* 


1733 


011106 

VIII w 


032767 

V^C > u > 


002000 


167670 




BIT 


#2000. UDES 


.-SEE IF PE 


175A 


011114 


001403 

V V 1 ~ V J 








BEQ 


ERPTAI 


■IF SO: BR 


1735 


011116 

V 1 1 1 1 V 


042767 

Vt W ' V ' 


000200 


167622 




BIC 


#200.STnSK 


-RESET PEF HASK 


1736 


011124 

VIII fc~ 


046704 

V~ V r w~ 


167616 




ERPTA1 : 


BIC 


STnSK.R4 


.■nASK DONT CARE BITS 


1737 


011130 

VIII 


001530 

V V 1 J ^v 








BEQ 


ERPTX 


'IF NO UNEXPECTED ERRORS: BR 


1/38 


011132 

VIII 


012767 


000001 


167640 


ERPTG: 


nov 


#1 .SERFL 


;SET FLAG 


1739 


011140 


032777 


020000 


167470 




BIT 


#20000. asuR 


.'SEE IF SHOULD PRINT ERRORS 


1740 


011146 


001115 








BNE 


ERPTO 


'IF NOT: BR 


1741 


011150 

VIII ^V 


005767 

V V ^ ' V ' 


167520 






TST 


HORFL 


'SEE IF DONE HEADER 

f *# k k 4 * Ir W>«k 'Ik '« Ir k ' i 


1742 


011154 


001006 

VV 1 WW 








BNE 


ERPTA 


'IF SO: BR 


1743 


011156 

VIII ^v 


005267 

VV^ V f 


167512 






INC 


HDRFL 


'SET HEADER FLAG 


1744 


011162 


016704 


167510 






nov 


EnADDR.R4 




1745 


011166 

VIII wv 


004767 

wv^ r V • 


001174 






JSR 


PC.TTOUT 


.'PRINT HEADER 

0 t n m •* • Ilk rvV k 'V 


1746 


011172 


016704 


167516 




ERPTA: 


nov 


ERRP.R4 


•GET ERROR CODE 


1747 


011176 


001414 








BEQ 


ERPTB 


' I F NONE : BR 

0m' I»W"»k • W" 


1748 


011200 


004767 


001162 






JSR 


PC.TTOUT 


■PRINT ERROR CODE 

0 w n A** ■ k'v'vW** vwk 


1749 


011204 


012704 


013674 






nov 


#nSG20.R4 


'SET NRZ TAG 


1750 


011210 


032777 


002000 


167414 




BIT 


#2000. aTC 


.'SEE IF PE 


1751 


011216 


001402 








BEQ 


ERPT1A 


■IF NOT: BR 

0^9 vw ■ * wn 


1752 


011220 


012704 


013702 






nov 


#nSG21 .R4 


.'ELSE SET PE TAG 


1753 


011224 


004767 


001136 




ERPT1A: 


JSR 


PC.TTOUT 


'PRINT TAG 


1754 


011230 


016704 


167462 




ERPTB: 


nov 


ERRP1 .R4 


•SEE IF CODE 2 

9 Vkk m' VWk k 


1755 


011234 


001402 








BEQ 


ERPTB1 


:IF NOT: BR 


1756 


011236 


004767 


001124 






JSR 


PC.TTOUT 


.'PRINT CODE 2 

0 t W A V k Ir k k 


1757 


011242 


032777 


010000 


167366 


ERPTB1 : 


BIT 


#10000.aSUR 


.'SEE IF ITERATION 

#wkk Jiikf^'AW 


1758 


011250 


001010 








BNE 


ERPTl 


•IF NOT: BR 

0m* IW ■ * 


1759 


011252 


012704 


015146 






nov 


#nSG56.R4 




1760 


011256 


004767 


001104 






JSR 


PC.TTOUT 


.'PRINT ITER TAG 


1761 


011262 


016703 


167462 






nov 


ITCNT.R3 




1762 


011266 


004767 


001224 






JSR 


PC.OCTP 


;PRINT ITERATION 


1763 


011272 


012704 


013146 




ERPTC: 


nov 


#nSGl .R4 




1764 


011276 


004767 


001064 






JSR 


PC.TTOUT 


:PRINT REGISTER TAG 


1765 


01 1 302 


017703 


167272 






nov 


aci .R3 




1766 


011306 


004767 


001172 






JSR 


PC.OCTPE 


.'PRINT CSl 


1767 


011312 


017703 


167264 






nov 


auc,R3 




1768 


011316 


004767 


001162 






JSR 


PC.OCTPE 


'PRINT UC 


1769 


01 1 322 


017703 


167256 






nov 


aBA,R3 




1770 


011326 


004767 


001152 






JSR 


PC.OCTPE 


.'PRINT BA 


1771 


011332 


01 7703 


16725P 






nov 


aFC.R3 




1772 


011336 


004767 


001142 






JSR 


PC.OCTPE 


.'PRINT FC 


1773 


011342 


017703 


167242 






nov 


acs.R3 




1774 


011346 


004767 


001132 






JSR 


PC.OCTPE 


:PRINT CS2 


1775 


011352 


017703 


167234 






nov 


aos.R3 




1776 


011356 


004767 


001122 






JSR 


PC.OCTPE 


;PRINT DS 


1777 


011362 


017703 


167226 






nov 


aER.R3 




1778 


011366 


004767 


001112 






JSR 


PC.OCTPE 


.•PRINT ER 


1779 


011372 


017703 


167234 






nov 


aTC.R3 




1780 


011376 


004767 


001102 






JSR 


PC OCTPE 


■PRINT TC 



TN02/TU45 BASIC FUNCTION TEST 
CZTUJA.P11 07-JUN-78 16:58 



HACYll 30(1046) 15-JUN-78 13:49 



4 

PAGE 



1781 
1782 
1783 
1784 
1785 
1786 
1787 



011402 
011406 
011410 
011412 
011416 



005777 
100001 
000000 
004767 
000207 



167230 



000324 



ERPTD: TST 
BPL 
HALT 
ERPTX: JSR 
ERPTXX: RTS 



asuR 

ERPTX 

PC.1NIT1 
PC 



51 



:SEE IF HALT ON ERROR 
;1F NOT: BR 

;IN1T 
.•RETURN 



SEQ 0051 



TH02/TUA5 BASIC 


FUNCTION TEST 




30( i04o) 


N 4 

13-JUN-78 13:49 PAGE 52 




CZTUJA.P11 07-JUN-78 


16:58 










SEQ 0052 


1788 












;TAPF HARK STATUS CHECK** 






1789 


















1790 


01U20 


032767 


A A A M A M 

000004 


167324 


TMCHK: 


BIT #4.0SAV ; 


SEE IF T1 SET 




1791 


01U26 


001401 








BEQ TnCHKI ; 


t P ft! A T A A 

IF NOT. BR 




1792 


01U30 


000207 






THCHKO: 


RTS PC , 


Ft F * APTIIAai 

ELSc RCTURN 




1793 


01U32 


005767 


167342 




THCHK1: 


TST SERFL , 


SEE IF HAD ERROR 




179A 


01U36 


001374 








BNc TnCHKO . 


t r Fn . BA 

IF SO: BR 




1795 


01UA0 


012767 


015156 


167250 




HOv fHSG57,ERRPl , 


SET ERROR CODE c 




1796 


01UA6 


004767 


177460 






JSR PCERPTG 


GO PRINT TM ERROR 




1797 


01U52 


005067 


167240 






CLR ERRP1 


CLEAR CODE 2 FLAG 




1798 


01U56 


000207 








RTS PC 


RETURN 




1799 


















1800 












.'DATA SETUP ROUTINE********** 




1801 


















1802 


01U60 


000240 






DSUP: 


NOP 






1803 


01U62 


012703 


016232 




DSO: 


nOV «WDATA,R3 :R3 = ADDRS OF WRITE BUFFER 




1804 


011466 


016701 


167314 






nOV PATRN,R1 ;R1 = PATTERN SELECTOR 




1805 


011472 


000241 








ri r 






1806 


011474 


006101 








nUL n 1 


■HAifF PATTFRM CFI FPTnR FUFM 




1807 


011476 


000171 


A A 4 ATA 

001020 






JMP aOATBI (RI ) 


■CO GENERATE PATTERN 




1808 


011502 


032777 


A 1 AAAA 

010000 


167116 


DS1 : 


PIT #10000 a&T 

D 1 1 VI wwww / W 1 






1809 


011510 


001410 








DCA f\CT 


•IF MOT" BR 




1810 


011512 


012702 


AAA^ / A 

000640 






MOW MkL(\ PP 


r 9k 1 Dur r cn &k 




1811 


011516 


012701 


016232 






MOW fUf^ATA RI 

nuv Wl/n 1 n f n 1 


•SFT START OF BUFFFR 

1 9C 1 V 1 nfS 1 wi Dwr r CA 




1812 


011522 


042721 


140300 




DS2: 


BIC #140300, (R1)^ 


iHASK FOR 7 CH 




1813 


011526 


005302 








DEC R2 


;SEE IF DONE 




18U 


011530 


001374 








BNE DS2 


;IF NOT: BR 




1815 


C11532 


012702 


AAA^ y A 

000640 




DS3: 


nOV #640, R2 


;R2-BUFFER SIZE *2 




1816 


011536 


012701 


A1 77/ i 

01 JJhh 






nOV #RDATA,R1 


;R1sREAD DATA START 




1817 


011542 


005021 






DS4: 


CLR (RD* 


; CLEAR BUFFER 




1818 


011544 


005302 








DEC R2 


;SEE IF DONE ALL 




1819 


011546 


001375 








BNE DS4 


;IF NOT: BR 




1820 


011550 


000207 








RTS PC 


;EXIT 




1821 


















1822 


















1823 


















182A 


011552 


012701 


Mllll 




0AT1: 


HOV #-1,R1 


;R1=DATA 




1825 


011556 


012702 


000640 




DAT1A: 


NOV #640, R2 


;R2=U0RD COUNT *2 




1826 


011562 


010123 






DAT1B: 


NOV R1.(R3)^ 


.■LOAD BUFFER 




1827 


011564 


005302 








DEC R2 


.SEE IF DONE 




1828 


011566 


001375 








BNE DAT1B 


;IF NOT: BR 




1829 


011570 


000167 


1 ffJQt 






JHP DS1 


.•RETURN 




1830 


















1831 












;ALL ZEROS********** 






1832 


















1833 


011574 


005001 






DAT2: 


CLR RI 


;R1=DATA 




1834 


011576 


000167 


17775^ 






JHP DAT1A 


.•LOAD BUFFER 




1835 
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1B36 








1 DVT 








lS3B 


011602 


AI ^^A4 

012701 


125125 


1B39 


All X AZ 

01 1606 


AAA4 T 

00016/ 


< 777y y 

1 JiJhh 


1840 








lB4 1 








1842 








1843 


A1 1 X i 1 

011612 


AAC AAi 

005001 




1844 


Ai 1 A 1 y 
01 1614 


01 2 r 02 


AAI CAA 
001 500 


184) 


A1 1 X.OA 

01 lo20 


i 1 AI 

1 10123 




iB4o 


A1 1 AOO 

01 1622 


1 AC OA1 

103201 




l84r 


A1 1 A 

01 1624 


AACTA^ 

003302 




1848 


011626 


AAI T7/ 

0013r4 




1 BAB 

184t 


A1 1 X.VA 

011630 


AAA1 A7 

0001 6 r 


1 r r646 


1 sen 

1830 








1851 








1B3£ 








lo>3 










01 1034 


AAA?/. A 

000240 






r\i 1 iLTiL 
011030 


AT3777 

032 r r r 


A/ AAAA 
040000 




Ai 1 X./ y 
01 1644 


AAI AAI 
001001 




185f 


Ai 1 A. 
011646 


AAA^A7 

00020 r 




1 BCB 

1838 


M 1 AKA 

01 1670 


AAn3/,A 

000240 


« 


1 BCO 

1859 


01 1632 


AAC7iL7 

003r6r 


1 /71 A/ 

16rl04 


1 B^A 


Ai 1 yLCiL 
01 1636 


Ar\1 AAI 

001001 




18ol 


A1 1 L.l.l\ 

01 1660 


AAA3A7 

00020 r 




i BA3 


01 1662 


AAC73yL 

003 r ^6 






A1 1 AA/. 

01 1664 


AAC73yL 

003 r ^6 




1 BiLA 

1804 


A1 1 iLiLX 

01 1666 


AAA3/.A 

00024U 




1803 


Ai 1 il7A 

01 16r0 


AAA3/,r\ 

00U24U 




1800 


AI 1iL73 

0116r2 


AAAI 77 

UUUl r r 


1 A7r)// 
lOrUO^ 


18of 








1 BiLB 

1868 








18oV 








1 B7n 


M 1/1 7A 
Ul i6r6 


UUUc*iU 




1 B71 

iBr 1 


AI 1 7AA 

01 1 r 00 


AT3777 

032 r r r 


AI AAAA 
01 UOOO 


1 B7? 


AI 1 7AiL 

01 1 r 06 


AAI /AT 

001403 




1B7T 

18r J 


A1 1 71 A 

01 1 r 10 


00300 r 


1/7AT/ 

1 Or 034 


1 B7Z 

18r4 


AI i 71/ 

01 1 r 14 


AnA3A7 

00020 r 




1B7C 

IBf 5 


A1 1 71 A 

01 1 r 16 


00326 r 


1/7A3/ 

16r026 


1 B7iL 

18ro 


A1 1 Ti'i 


A3/7yt7 


1 Or 022 


1 a77 

lor f 


A1 1 1XtK 
U 1 1 r 3U 


nm 7/17 
UU 1 r 6 r 




1B7B 

loro 


ni 1 7X3 

Ul 1 r3c 


UU3rc6 




1 B70 

lor 7 


A1 1 ^XL 

Ul 1 r 3^ 


AI 77AA 

Ul r r UU 


1/7A3/ 

lOr 024 


1 BBA 

1B8U 


AI 1 7£ A 

01 1 r40 


AAA1 1 A 
0001 10 




1BB1 

1681 








1BB3 

lB8c 








1883 








1 BBZ 

1884 


AI 1 1L 3 

01 1 r*<: 


AAA3Z A 

00024 U 




1885 


011744 


012777 


000040 


1886 


011752 


016777 


166722 


1887 


011760 


016777 


166716 


1888 


011766 


000207 




1889 









HACYH 30(1046) 



DAT3: 



0AT4: 
DAT4A: 



166772 



SCOPE: 



SC0PE1: 



SC0PE2: 



166730 



166724 



ITER: 

ITERO: 
ITER1: 



INIT1: 

166636 

166630 INIT2: 
166644 



B 5 
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SEQ 0053 



:0NE/ZER0 IN ALTERNATING CHARACTERS 



nov 


#125125. R1 ;R1=DATA 


jnp 


DAT1A ;LOAD BUFFER 






CLR 


R1 ; 


RESTARTING DATA 


NOV 


#1500. R2 ; 


R2=CHARACTER COUNT 


nova 


R1.(R3)* ; 


LOAD BUFFER 


INCB 


R1 


BUHP DATA 


DEC 


R2 


SEE IF DONE 


BNE 


DAT4A 


IF NOT: BR 


J HP 


DS1 


RETURN 


.SCOPE 




NOP 






R T T 

D i 1 


#40000. asuR 


SEE IF LOOP ON ERROR 


BNE 


SC0PE1 


IF SO: BR 


RTS 


PC 


■ELSE EXIT 


NOP 






TST 


SCOLP 


SEE IF SCOPE ADDRESS 


BNE 


SC0PE2 


•IF NOT: BR 


RTS 


PC 


■ELSE EXIT 


TST 


(SP)* 


;RESET STACK 


TST 


(SP)* 


;BUnP STACK 


NOP 






NOP 






JHP 


aSCOLP ;L00P ON ERROR 


;TEST 




NOP 






BIT 


#ioooo.asuR 


I SEE IF ITERATIONS 


BEQ 


ITER1 


;IF SO: BR 


CLR 


ITCNT 


;CLEAR ITERATION COUNTER 


RTS 


PC 


:ELSE EXIT 


INC 


ITCNT 


;BUNP COUNTER 


CNP 


ITCNT. ITANT 


;SEE IF DONE ALL 


BEQ 


ITERO 


;IF SO: BR 


TST 


(SP)* 


;RESET STACK 


NOV 


aiTRLP.RO 


;SET ITERATION POINTER 


JHP 


(RO) 


;60 ITERATE 


: INITIALIZE SUBROUTINE** 




NOP 






NOV 


#40.acs 


■INIT 


NOV 


DRVN.aCS 


;SELECT DRIVE 


NOV 


SLVN.aTC 


;SELECT SLAVE 


RTS 


PC 


; RETURN 
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1890 








1891 








1892 


011770 


000240 




1893 


011772 


022626 




1894 


011774 


0002<*0 




189S 


011776 


000240 




1896 


012000 


000177 


166730 


1897 








1898 








1899 








1900 


012004 


000240 




1901 


012006 


000240 




1902 


012010 


000240 




1903 


012012 


000002 




1904 








1905 








1906 








1907 


012014 


000240 




1908 


012016 


032777 


020000 


1909 


012024 


001020 




1910 


012026 


005767 


166642 


1911 


012032 


001006 




1912 


012034 


005267 


166634 


1913 


012040 


016704 


166632 


19U 


012044 


004767 


000316 


1915 


012050 


012704 


013727 


1916 


012054 


004767 


000306 


1917 


012060 


010103 




1918 


012062 


004767 


000430 


1919 


012066 


005777 


166544 


1920 


012072 


100001 




1921 


012074 


000000 




1922 


012076 


022626 




1923 


012100 


012767 


002732 


192A 


012106 


004767 


177522 


1925 


012112 


005767 


166672 


1926 


012116 


001402 




1927 


012120 


000167 


167510 


1928 


012124 


000167 


170606 


1929 









KACY11 30(1046) 



HTINT; 



TTINT; 



TRAP: 



TRAP1 



TRAP2: 



TRAPX: 



TRAPXX: 



C 5 
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SEO 0054 



.-HAG 


TAPE INTERRUPT 




NOP 






cnp 


(SP)*,(SP)* 


.-RESET STACK POINTER 


NOP 






NOP 






JHP 


iRTRN 


.•RETURN TO CALLER 


;TTY 


INTERRUPT HANDLER********** 


NOP 






NOP 






NOP 






RTI 






;BUS 




NOP 






BIT 


#20000, iSUR 


.-SEE IF SHOULD PRINT ERRORS 


BNE 


TRAP2 


:IF NOT: BR 


TST 


HDRFL 


.-SEE IF DONE HEADER 


BNE 


TRAP1 


'IF SO: BR 


INC 


HDRFL 


:ELSE SET HEADER FLA3 


nov 


EnADDR,R4 




JSR 


PC.TTOUT 


: PRINT HEADER 


nov 


#nSG24,R4 




JSR 


PC.TTOUT 


.'PRINT ERROR 


nov 


R1,R3 




JSR 


PC.OCTP 


;PRINT ADDRESS OF TRAP 


TST 


aswR 


:SEE IF HALT ON ERROR 


BPL 


TRAPX 


:IF NOT: BR 


HALT 






GBP 


(SP)*,(SP)* 


.•RESET STACK 


mv 


#FT1A,SC0LP 


.'SET SCOPE ADDRESS 


JSR 


PC, SCOPE 


;G0 SEE IF SCOPE LOOP 


TST 


RHTF 


.•SEE IF INITIAL ADDRESS TEST 


BEQ 


TRAPXX 


:IF NOT: BR 


jnp 


STOB 


.ELSE REDO ADDRESS REQUEST 


jnp 


FT1B 


.•RETURN TO TEST 1 



D 5 
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CZTUJA.PII 07-JUN-78 16:58 SEO 0055 

1930 .••••••••••••ttt»tttt*tttt*tttttttttttt. ••••••••••••••• 

1931 . :TTY ENTRY SUBROUTINE: 
1932 

1933 .THIS SUBROUTINE IS USED BY THE TEST CONDITION 

193A ; ENTRY ROUTINE TO READ THE RESPONSE ENTERED 

1935 ;AT THE TTY AND CHECK THEH FOR LEGALITY AND 

1936 .-LIHITS. ALL RESPONSE HUST BE TYPED IN OCTAL 

1937 ;(0-7) AND HUST FALL WITHIN THE LI«ITS SET BY 

1938 .THE CALLING ROUTINE. 

1939 :IF AN ENTRY IS ILLEGAL OR OUTSIDE THE LIMITS. 

1940 :A QUESTION HARK IS TYPED (?) AND THE RESPONSE 

1941 :NAY BE REENTERED. 

1942 .-ENTRIES NAY NOT EXCEED SIX (6) CHARACTERS AND 

1943 .HAY BE TERMINATED AT LESS THAN SIX BY TYPING A 

1944 : CARRIAGE RETURN 

1945 ;******t************.t*tt*t****tt**t*«****tt*******tt* 

1946 



1 T*l f 


ni9i 

U 1 C 1 Jv 




1 AAAOA 
1 OOOUH 




TTQ • 




TEMPI .-CLEAR FIRST CHARACTER FLAG 


1 T"IO 


01 ?1 "KL 


nnsonn 








ri R 


RO 










Uww 1 jC 




TTPn* 
1 1 nU • 


J on 


PC.TTIN 


-GO READ CHARACTER 


1QS0 

1 T 3W 




1777<»7 

1 CC r or 


00071 S 


166^70 




mpn 


«21S.TIB 


■SEE IF CR 


19^1 

1 w J 1 


0171^0 


001 oos 








RMF 

one 


TTR1 


'IF NOT: BR 




0171S7 




1 OO^Oc 






T^T 


TEMPI 


■SEE IF FIRST CHARACTER 






WW 1 HMO 








DC W 


TTR5 


;IF SO: BR 






000167 

www 1 0 r 


000066 

W VWWOO 






IMP 


TTR2 


'ELSE GO LOAD VALUE 


loss 


01716^ 


177767 


000760 
wwwcOw 


166A76 
1 OOH 1 o 


TTP1 * 


unro 


#260. TIB 


;SEE IF CHAR IS LESS THAN 0 


1956 


012172 


101402 








BLOS 


TTR1A 


;IF NOT: BR 


1957 


012174 


000167 


000076 






JHP 


TINER 


;ELSE GO TO ERROR 


1958 


012200 


yiiibi 


000270 


166462 


TTR1A: 


C«PB 


#270. TIB 


;SEE IF CHAR IS GREATER THAN 7 


1959 


012206 


101002 








BHI 


TTR1B 


;IF NOT: BR 


1960 


012210 


000167 


000062 






JHP 


TINER 


;ELSE GO TO ERROR 


1961 


012214 


005267 


166520 




TTR1B: 


INC 


TEMPI 


SET FIRST CHARACTER FLAG 


1962 


012220 


000241 








CLC 






1963 


012222 


006100 








ROL 


RO 




1964 


012224 


000241 








CLC 






1965 


012226 


006100 








ROL 


RO .-SHIFT 3 LEFT 


1966 


012230 


000241 








CLC 






1967 


012232 


006100 








ROL 


RO 




1968 


012234 


042767 


177770 


166426 




BIC 


#177770. TIB 


STRIP ASCII 


1969 


012242 


056700 


166422 






BIS 


TIB.RO 


LOAD CHARACTER 


1970 


012246 


005301 








DEC 


RI 


SEE IF DONE 


1971 


012250 


001332 








6NE 


TTRO 


I F NOT : BR 


1972 


012252 


020002 






TTR2: 


CHP 


R0.R2 


SEE IF EXCEEDED MAXIMUM LIMIT 


1973 


012254 


101402 








BLOS 


TTR3 


IF NOT: BR 


1974 


012256 


000167 


000014 






jnp 


TINER 


ELSE GO TO ERROR 


1975 


012262 


020300 






TTR3: 


CBP 


R3.R0 


SEE IF BELOW MINIMUM LIMIT 


1976 


012264 


101402 








BLOS 


TTR4 


IF NOT: BR 


1977 


012266 


000167 


000004 






JHP 


TINER 


ELSE GO TO ERROR 


1978 


012272 


010015 






TTR4: 


nov 


R0.(R5) 


LOAD VALUE 


1979 


012274 


000207 






TTR5: 


RTS 


PC 


EXIT 



1980 



imz/ms BASIC function test 
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13-JUN-78 13:A9 PACE 56 



SEQ 0056 



1981 












;TTY 

• ■ ■ ■ 




1982 














#NSG7.R4 




1983 


012276 


012704 


013433 




TINER: 


nov 




1984 


012302 


004767 


000060 






JSR 


PC-TTOUT 


.'PRINT? 


1985 


012306 


162716 


000020 






SUB 


#20. (SP) 


•RESET 3P TO START 


1986 


012312 


000207 








RTS 


PC 


■REDO VALUE ENTRY 


1987 


















1988 












;TTY 






1V89 


















1990 


012314 


005077 


166320 




TTIN: 


CLR 


iTKS 




1991 


012320 


005077 


166316 






CLR 


iTKB 




1992 


012324 


005067 


166340 






CLR 


TIB 




1993 


012330 


005277 


166304 






INC 


iTKS 




1994 


012334 


105777 


166300 




TTIN1 : 


TSTB 


iTKS 




1995 


0123^0 


100375 








BPL 


TTIN1 




1996 


0'i2342 


017767 


166274 


166320 




nov 


iTKB. TIB 




1997 


012^50 


105777 


166270 




TTIN2: 


TSTB 


iTPS 




1998 


012354 


100375 








BPL 


TTIN2 




1999 


012356 


116777 


166306 


166262 




novB 


TIB.iTPB 




2000 


012364 


000207 








RTS 


PC 




2001 


















2002 












;TTY 


OUTPUT SUBROUTINE 




2003 


















2004 


01 2366 


112467 


166274 




TTOUT: 


novB 


(R4)*.T0e 




2005 


012372 


122767 


000043 


166266 




cnPB 


f43,T0B 




2006 


012400 


001440 








BEQ 


TEX 




2007 


012402 


122767 


000045 


166256 




CHPB 


#45,T0B 




2008 


012410 


001403 








BEQ 


TCRLF 




2009 


012412 


004767 


000050 






JSR 


PC, TOG 




2010 


012416 


000763 








BR 


TTOUT 




2011 


012420 


112767 


00001 5 


166240 


TCRLF: 


novB 


f15,T0B 




2012 


012426 


004767 


000034 






JSR 


PC. TOG 




2013 


012432 


012703 


000004 






nov 


#4,R3 




2014 


012436 


005067 


166224 




TCRLFA: 


CLR 


TOB 




2015 


012442 


004767 


000020 






JSR 


PC. TOG 




2U16 


012446 


005303 








DEC 


R3 




2017 


012450 


001372 








BNE 


TCRLFA 


.-DO FILLERS 


2018 


012452 


112767 


000012 


166206 




novB 


#12. TOB 




2019 


012460 


004767 


000002 






JSR 


PC. TOG 




2020 


012464 


000740 








BR 


TTOUT 




2021 


012466 


105777 


166152 




TOG: 


TSTB 


iTPS 




2022 


012472 


100375 








BPL 


TOG 




2023 


012474 


116777 


166166 


166144 




novB 


TOB. iTPS 




2024 


012502 


000207 






TEX: 


RTS 


PC 




2025 


















2026 
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2027 








2028 








2029 


01250A 


012767 


000001 


2030 


012512 


01030A 




2031 


01251A 


000A10 




2032 


012516 


005067 


000212 


2033 


012522 


01030A 




203A 


01252A 


A A 4 A A / 

001 OOA 




2035 


012526 


00A767 


000162 


2036 


01253? 


000167 


A A A 4 A 

000120 


2037 


012536 


A T t T A 4 

03270A 


4 AAAAA 

1 00000 


2038 


012SA2 


001 A06 




2039 


A4 ^ 4 

0125AA 


A4 tTA y 

01270A 


A A A A A 4 

000001 


A ^ A 

20A0 


A 4 r f A 

012550 


A A y T y T 

00A767 


000116 


2041 


01255A 


000167 


A A A A A V 

C00006 


20A2 


012560 


A A P A A y 

00500A 




20A3 


A 4 try t 

012562 


00A767 


A A A 4 A / 

0001 OA 


20AA 


012566 


A 4 A V A y 

01030A 




20A5 


A 4 t r T A 

012570 


A A y A A y 

00600A 




20A6 


A 4 t r T t 

012572 


A Ay A A y 

00600A 




20A7 


A 4 t r T y 

01257A 


A A y A A y 

00600A 




20A8 


012576 


AAy AAy 

00600A 




20A9 


012600 


A A A V A y 

00030A 




^ A f A 

2050 


A 4 t ^ A t 

012602 


AAy Ty T 

0OA767 


A A A A y y 

00006A 


2051 


A 4 t ^ A y 

012606 


4 A V A y 

01030A 




2052 


A 4 t ^ 4 A 

012610 


AAy A A y 

00600A 




2053 


A4 t ^ 4 t 

012612 


A A A V A y 

00030A 




205A 


A 4 t ^ 4 y 

01261A 


AAy T y T 

0OA767 


A A A A r 

000052 


Af r 

2055 


A 4 t y A 

012620 


A 4 A V A y 

01030A 




2056 


A 4 1 1 

012622 


AAy 4 A y 

0061 OA 




2057 


A 4 t X t / 

01262A 


AAX 4 Ay 

0061 OA 




2058 


A4 tX tX 

012626 


A A A V A y 

00030A 




2059 


A4 TA 

012630 


AAy Tz T 

00A767 


A A A A T y 

000036 


^A^ A 

2060 


A 4 t ^ V / 

01263A 


A 4 A V A y 

01030A 




^A^ 4 

2061 


A 4 tX 

012636 


AAy AAy 

00600A 




^A^ ^ 

2062 


A 4 t z y A 

0126AO 


AAy A A y 

00600A 




2063 


A 4 J t 

0126A2 


AAy AAy 

00600A 




^ A^ / 

206A 


A4 / y 

01 26AA 


AAy T^ T 

0OA767 


AAAAt t 

000022 


2065 


A 4 C A 

012650 


A 4 ATA/ 

01030A 




^ A^ Z 

2066 


A 4 1^ C ^ 

012652 


AAy Ty T 

00A767 


A AAA 4 y 

00001 A 


2067 


A4 'IX 

012656 


A 4 1TZ T 

012767 


A A A t y A 

0002A0 


2068 


A 4 z y 

01266A 


AAy Ty T 

0OA767 


4 TTC TZ 

1 77576 


2069 


012670 


000207 




A TA 

2070 


A4 1i 

012672 


Ay tTAy 

0A270A 


4 TTTTA 

1 7777Q 


ATI 

2071 


A 4 1^ 

012676 


A A4 AAy 

001 OOA 




2072 


A 4 t T A A 

012700 


AAC TX T 

005767 


AA AATA 

000030 


t ATV 

2073 


A 4 t TAJ 

01270A 


AA4 AA4 

001001 




20 7A 


A 4 ')7AX 

012706 


AAA1AT 

000207 




2075 


A 4 '^74 A 

012710 


AAC '^Z T 

005267 


A AAA t A 

000020 


cUr O 




U5£f Oh 




2077 


012720 


010A67 


1657A2 


2078 


01272A 


00A767 


177536 


2079 


012730 


01 0304 




2080 


012732 


000207 




2081 


012734 


000000 




2082 









HACYII 30(10A6) 
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SEO 0057 



OCTP: 
0CTPE1 



OCTPO: 

0CTP1: 
0CTP2: 



166002 0CTP3: 
OCTPG: 



OCTPGO: 
OCTPGl: 



.-OCTAL OUTPUT SUBROUTINE' 



OFL: 



nov 


#1 ,OFL 




nov 


R3,R4 




BR 


OCTPO 




CLR 


OfL 


CLEAR FLAG FOR LEADING 


lOV 


R3,R4 


SEE IF NUnSER IS ZERO 


BNE 


OCTPO 


IF NOT ZERO: BR 


JSR 


PC, OCTPGl 


ELSE PRINT ZERO 


JBP 


0CTP3 


SPACE AND EXIT 


BIT 


#1 00000, R A 


SEE IF USD = 1 


BEQ 


0CTP1 


-IF NOT: BR 


nov 


«1,R4 




JSR 


PC, OCTPG .-PRINT 1 


JBP 


0CTP2 




CLR 


RA 




JSR 


PC, OCTPG rPRINT 0 


nov 


R3,RA 




ROR 


RA 




ROR 


RA 




AAA 

ROR 


RA zPOSITION DIGIT 


ROR 


RA 




SWAB 


RA 




1 C A 

JSR 


PC. OCTPG .-PRINT DIGIT 2 


nov 


R3.RA 




ROR 


RA 




SWAB 


RA 




JSR 


PC, OCTPG .PRINT DIGIT 3 


HOV 


R3,RA 




A Al 

ROL 


RA 




A Al 

ROL 


RA 




SUAB 


RA 




JSR 


PC, OCTPG 


;PRINT DIGIT A 


nov 


R3,RA 




AAA 

ROR 


RA 




AAA 

ROR 


R4 




Ann 


R4 




1 r A 

JSR 


PC, OCTPG 




nOv 


R3,RA 




JSR 


PC, OCTPG 


.-PRINT DIGIT 5 


nov 


#2A0.T0B 




JSR 


PC, TOG 


;PRINT SPACE 


RTS 


PC 


;EXIT 


A t ^ 

BIG 


#1 77770. RA 




BNE 


OCTPGO 




T C T 

TST 


OfL 




PUC 


OCTPGO 




RTS 


PC 




INC 


OfL 




BIS 


#260, RA 




nov 


RA,TOB 




JSR 


PC, TOG 




nov 


R3,RA 




RTS 


PC 




0 


.-fIRST CHAR fLAG 
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2083 








208A 








2085 


012736 


005067 


165724 


2086 


0127A2 


012704 


000010 


2087 


0127A6 


110367 


165714 


2088 


012752 


105777 


165666 


2089 


012756 


100375 




2090 


012760 


132767 


000200 


2091 


012766 


001404 




2092 


012770 


012777 


000061 


2093 


012776 


000403 




2094 


013000 


012777 


000060 


2095 


013006 


006167 


165654 


2096 


013012 


005304 




2097 


013014 


001356 




2098 


013016 


000207 




2099 


013020 


016703 


165720 


2100 


013024 


000303 




2101 


013026 


004767 


177704 


2102 


013032 


016703 


165706 


2103 


013036 


004767 


177674 


21 OA 


013042 


000207 




2105 








2106 








2107 








2108 


013044 


010304 




2109 


013046 


000304 




2110 


013050 


006004 




2111 


013052 


006004 




2112 


013054 


006004 




2113 


013056 


006004 




211A 


013060 


004767 


000036 


2115 


013064 


010304 




2116 


013066 


000304 




2117 


013070 


004767 


000026 


2118 


013074 


010304 




2119 


013076 


006004 




2120 


013100 


006004 




2121 


013102 


006004 




2122 


013104 


006004 




2123 


013106 


004767 


000010 


2124 


013112 


010304 




2125 


013114 


004767 


000002 


2126 


013120 


000207 




2127 


013122 


01?767 


000260 


2128 


013130 


042704 


1 77760 


2129 


013134 


050467 


165526 


2130 


013140 


004767 


177322 


2131 


013144 


000207 




2132 









HACYll 30(1046) 



OOUT: 
DOUTl : 

165700 
165650 

165640 D0UT2: 
D0UT3: 



DOUTD: 



SNPT; 



165536 SNPG: 





G 5 
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:DATA 




CLR 


TUB 




nov 




CCT klllMDCD TO DDFUT 

be 1 NUnOCK 1 U rK i N 1 


MOVB 


K}, I Ob 




TSTB 


• I rb 




BPL 






BITB 






BEQ 






nov 


«nAi STOP 




BR 


DUU 1 J 




nov 


• UOU «■ 1 ro 




RQL 


1 UD 




DEC 


R4 




BNE 


DOUTl 




RTS 


PC 




Mm/ 

nov 


TEnP3,R3 




SUAB 


R3 






PC.DOUT 




NOV 


TEnP3.R3 




JSR 


PC.DOUT 




RTS 


PC 




;TU45 


SERIAL NUnBER PRINT SUBROUTINE********** 


nov 


R3,R4 




SUAB 


R4 




ROR 


R4 




ROR 


R4 




ROR 


R4 




ROR 


R4 ;GET FIRST DIGIT 


JSR 


PC, SNPG :G0 PRINT 


nov 


R3.R4 




SUAB 


R4 


GET SECOND DIGIT 


JSR 


PC, SNPG :G0 PRINT 


nov 


R3,R4 




ROR 


R4 




ROR 


R4 




ROR 


R4 




ROR 


R4 


GET THIRD DIGIT 


JSR 


PC, SNPG 


■GO PRINT 


nov 


R3,R4 


■GET FOURTH DIGIT 


JSR 


PC, SNPG 


-GO PRINT 


RTS 


PC 


EXIT 


nov 


#260, TOB 


■SET BASE : 0 


BIC 


#177760. R4 


HASK DIGIT 


BIS 


R4.T0B 


;SET ASCII 


JSR 


PC. TOG 


;TYPE DIGIT 


RTS 


PC 


; RETURN 



SEQ 0058 
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SEO 0059 



21 33 












.'MESSAGE 




21 34 
















? 1 35 


01 3146 


041445 


AT AC *)T 

030523 


AlAAi A 

020040 


KSG1 : 


.ASCII 


/%PPl IIP pp #*Pl y 

/ZCSl UC BA FC CS2 / 


21 36 


013154 


A1AA/ A 

020040 


A/ i C "IT 

041 527 


AIAA/ A 

020040 








2137 


013162 


020040 


A / 4 A / A 

041040 


A1 A4 A 4 

020101 








2138 


01 31 70 


A'^AA/ A 

020040 


A1AA/ A 

020040 


Ay 1 CAZ 

041 506 








21 39 


A4 T4 

013176 


A1AA/ A 

020040 


A1AA/ A 

020040 


041440 








2140 


A1 T9A/ 

01 3204 


AT 1 1 OT 


A'^AA/ A 

020040 


A')AA/ A 

020040 








2141 


Ai Til 

013212 


AC 1 

051504 


a^aa/ a 

020040 


A')AA/ A 

020040 




.ASCII 


ZDS ER TCZf/ 


2142 


A1 T 9 9A 

013220 


A/ 9/ / A 

042440 


A'^Ai 

020122 


A')AA/ A 

020040 








2143 


A1 T9 9^ 

013226 


A9AA/ A 

020040 


A/ 1 C 

041524 


A91 / / C 

0214*5 








214^ 


A1 TIT/ 

013234 


AC 1 A/ C 

051045 


ACTCAC 

053505 


A/ 7111 

04rl 1 1 


nSG2: 


.ASCII 


/V&CUtUf\ CBDADJiy 

/*KcWlND cKRORf/ 


2145 


A1 T9y 9 

01 3242 


A9A1 A/ 

0201 04 


AC1 1 AC 

051105 


A/ 7C99 

047522 








2146 


A1 T9CA 

013250 


A91 C 99 

021522 














A1 T9C 9 

01325c 


A99/ / C 

0224*5 


A/ ^ C 9/ 

046524 


ATI A^A 

031 060 


B5G3 : 


.ASCII 


yWTMAO Tii/C DACtr cj lur t i nu tcct /rTtiiiAA\vy 
/ZZTn02*TUH^ dASK rUNCliON icSl (CZTUJAO)*/ 


cl4S 


A1 T9^A 

013260 


AC 9AC C 

052055 


AT91 9C 

032125 


A9AAX C 

020065 








2149 


AIT 9^^ 

013266 


A/ AC A9 

040502 


A/ / C 9T 

044523 


A9A1 AT 

020103 








21 jO 


A1 T97/ 

0132f4 


AC9CAA 

052506 


A/ 1 C 1 ^ 

041 516 


A/ / C 9/ 

04*524 








01 CI 

2151 


A1 TTA9 

013302 


A/ 7117 

04^11 r 


AC 9A/ A 

052040 


AC 1 C AC 

051 505 








£l 5c 


m TT1 A 

013310 


A9A1 9/ 

020124 


A/ 1 / C A 

0*1*50 


AC91 T9 

0521 32 








2153 


A1 TT1 £. 

013316 


A/ C 1 9C 

045125 


ATA1 A1 
030101 


A99/ CI 

022451 








91 

21 54 


A1 TT9/ 

013324 


A/ 71 AC 

04 r 105 


A/ 9C9/ 

042524 


A9A1 99 
020122 




.ASCII 


/cNTcR CONDITIONS IN OCTALZf/ 


91 cc 

21 55 


ni TTT9 

013332 


A/ 7CAT 
0*^503 


A/ 91 1 A 

0*21 16 


AC91 1 1 

0521 1 1 








Zi 56 


A1 TT/ A 
01 33^0 


A/ 7C 1 1 

04^51 1 


AC 1 CIA 

051 516 


A/ / / / A 

04***0 








91 C7 

215r 


A1 TT/ A 

013346 


A9A1 1 A 
0201 16 


A/ 1 CI 7 

0*1 51 f 


AA AC9y 

040524 








91 CB 

cl 50 


A1 TTCA 

01335H 


A99C1 A 

02251* 


AA T 

0*3 










91 CQ 

cl 5V 


A1 TTC7 

01335f 


A/ C 

0*5 


AA9C99 

0*2522 


AA ACA7 
0**50f 


MC/"/ • 

nSu* : 


A c r 1 f 
.ASC 1 I 


/VDC/"ffCTCD CTAttT « fli / 

/ZRCuISIcR SIART - »/ 


91 ^A 


A1 TTAA 

01 336^ 


AC91 9T 

052123 


AC1 1 AC 

051 105 


AC1 AAA 
051**0 








91 ^1 
£l61 


A1 TT79 

0133/^2 


A/ AC9A 
0*052* 


052122 


ATAAAA 
036**0 








91 il9 
ClOC 


A1 TA AA 

01 3h00 


A91 AAA 
021**0 












91 AT 

cl03 


01 3*02 


ACTAAC 
0530*5 


AA1 cnc 
0*1 505 


AA7C3A 
0*f 52* 


HCrC • 


.ASCII 


/VUCrTAD * M/ 


91 A£ 

cl64 


A1 TA 1 A 
013*10 


A9A1 99 
020122 


A9AA7C 

0200/^5 


A/ T 
0*3 








91 AC 

£l65 


A1 T/ 1 C 

01 3*1 5 


AA C 

0*5 


AA 71 AC 
0*f^l05 


A9A1 A/ 
02010* 


nSu6: 


A c r I t 

.ASCII 


/VCUf\ Ar DACC 0/ 

/*cND Or PASS 9/ 


91 AA 

£l66 


A1 T/ 99 

013*22 


A/ T1 1 7 
0*31 1 f 


ACAA/ A 
0500*0 


AC1 CA1 

051501 








91 A7 


A1 TA TA 

01 3*30 


A9A1 9T 

020123 


AA T 
0*3 










91 AB 


A1 XL XX 

013*33 


AAA 
0*0 


A9AA77 
0200f f 


AAT 
0*3 


MC /" 7 • 

R5Q/ : 


A c r f f 
. ASC 1 1 


f 7 »/ 


91 AO 


A1 TAT7 
01 3*3f 


t\L C 

0*5 


r\L X 
0*3 




MC/'fl • 

nSGB: 


A c r t V 
.ASCI 1 


/Vil / 


91 7f\ 


A1 T/ / 1 
01 3**1 


0*5 


t\L 7C 9A 
0*/^520 


A/ /C9T 

0**523 




A C r ff ff 

.ASCII 


/ZPuSITION cRIiOr: */ 


91 71 


A 1 TA A A 
01 3**6 


AAAC9A 
0**52* 


AA 71 1 7 

0*r 1 1 r 


A/ 9/ / A 
0*2**0 








91 79 
21 IC 


A1 T/ C/ 

013*5* 


AC 1 1 99 

051 122 


AC1 1 1 7 

051 n f 


A9AA79 

020072 








91 7T 

£l f 3 


A1 TAA9 

01 3*62 


AAT 

0*3 












91 7 A 


A1 TA AT 
01 3*63 


AAC 

0*5 


AC 1 1 f\L 

051 10* 


ACT1 1 1 

0531 1 1 


MC/'l A • 

nSul 0 : 


A C ^ 1 1 

.ASC 1 1 


/VACklVVC UIIMDCD. tf/ 


91 7C 
A 1 f 5 


A1 TA7A 
01 3*f 0 


A9A1 AC 

020105 


AC9C1 A 

052516 


A/ 1 1 1 C 

0*1 1 1 5 








91 7A 
£l 10 


A1 TA7A 

013* f 6 


AC1 1 AC 

051 1 05 


A9AA79 
0200^2 


nL X 
0*3 








91 77 


A1 TCAT 

01 3503 


l\L C 

0*5 


A£ A1 9T 

0*6123 


ACT1 A1 

053101 


MC/"1 1 • 

nSul 1 : 


A c r ff ff 
.ASCII 


/VCI AliC AIIIMDCDa Mi 

/XSLAVc NUnBcR: »/ 


91 7B 

cl rO 


A1 TCI A 

01351U 


A9A1 AC 

020105 


AC9C1 A 

052516 


A/ 1 1 1 C 

0*1 1 1 5 








91 70 


A1 TCI A 

013516 


AC1 1 AC 

051 105 


A9AA79 


AA T 

0*3 








91 BA 

cl BU 


A1 TC9T 

01 3523 


AAC 

0*5 


AC1 197 

051 1 2f 


AC 91 1 1 

0521 1 1 


Men 9 • 


A c r ff ff 
.ASCII 


/VLIDITC CDDAD if/ 

/ZWRITc cRROR •/ 


91 B1 

clBl 


A1 TCTA 

01 3530 


A9A1 AC 

020105 


AC1 1 AC 

051 1 05 


AA 7C 99 

0*f 522 










w 1 jjjO 


\lc\l 1 cc 


r>AT 










2183 


013541 


045 


0^2522 


042101 


nSGl3: 


.ASCII 


/XREAD REVERSE ERROR #/ 


2184 


013546 


051040 


053105 


051105 








2185 


013554 


042523 


042440 


051122 








2186 


013562 


051117 


C21440 










2187 


013566 


051045 


040505 


020104 


nSGU: 


.ASCII 


/XREAD FORUARD ERROR #/ 


2188 


013574 


047506 


053522 


051101 
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SEO 0060 



2189 


01 3602 


020104 


051105 


047522 








2190 


013610 


020122 


A 4 V 

043 










2191 


013613 


045 


051127 


052111 


nS615: 


. ASCII 


/ZURITE TH ERROR #/ 


2192 


013620 


020105 


046524 


A4 ^ 4 4 A 

042440 








2193 


013626 


AP 4 4 1 1 

051122 


AP 4 4 4 ^ 

051117 


At 4 / 4 A 

021440 








2194 


015634 


051045 


A P V 4 A P 

053105 


AP 4 4 A P 

051105 


nSG16: 


.ASCII 


y4fnPl«^Aff*P rAMAA MM 

/ZREVERSE ERROR #/ 


2195 


013642 


042523 


A y t i y A 

042440 


AC 4 4 1 1 

051122 








2196 


A4 V ^ PA 

013650 


051117 


021440 










2197 


A 4 C / 

013654 


A J 9 A J C 

043045 


AC 4 4 4 *V 

051117 


A > A C 1 7 

040527 


nS617: 


.ASCI I 


/ZFORUARD ERROR #/ 


2198 


A 4 9^ ^ 1 

013662 


A ^ 1 4 11 

042122 


A ^ 1 y y A 

042440 


A C 4 4 11 

051 122 








2199 


A4 Vd. 7A 

013670 


A£ 4 4 4 ^ 

051117 


A 1 4 y y A 

021440 










2200 


A 4 9/ 

013674 


A/ A 

047040 


ACC 4 11 

055122 


All / / A 

021440 


nS620: 


.ASCI I 


1 NRZ '/ 


2201 


A4 V9A1 

01 3702 


Af AA / A 

050040 


A1A4 AC 

020105 


Ay V 

043 


MP/* 11 

NSG21 : 


.ASCII 


/ AF M y 

/ PE ml 


2202 


A1 T9A9 

013707 


t\i A 

040 


ACy 1 AC 

054105 


ACII 1A 

052120 


nS622: 


A C P t t 

.ASCI I 


y CWBT. Mi 

1 EXPT: #/ 


2203 


A 4 9^4 > 

013714 


A 1 AA^I 

020072 


A y V 

043 










2204 


A4 7 

013717 


A / A 

040 


A / 4 C 1 1 

041522 


A^ 11 IX 

042126 


nSG23: 


.ASCI I 


y n If A . M y 

/ RCVD: '/ 


AC 

2205 


A 4 1 / 

013724 


A 1 AA^I 

020072 


Ay T 

043 










^ ^ A^ 

2206 


A4 T717 

013727 


Ay c 

045 


A C 1 C AI 

052502 


A 1 A 4 1 T 

020123 


nS624: 


A P ^ ff t 

.AS. II 


/WBllC TBAB. MM 

/ZoUS TRAP: #/ 


2207 


A4 

013734 


AC 4 4 1 / 

0511 24 


ACA4 A4 

050101 


A 1 A A7 1 

020072 








1 1AA 

2208 


A4 1 

013742 


Ay T 

043 












^ ^ An 

2209 


A1 V7/ V 

013743 


Ay c 

045 


Ay 4 C 17 

041527 


A1AA71 

020072 


NS625 : 


A C P t t 

.ASCII 


y wi IP . ii y 

/ZUC: #/ 


2210 


A1 V9CA 

013750 


Ay V 

043 












till 

2211 


A4 4 

013751 


Ay c 

045 


Ay ACA1 

040502 


A1AA71 

020072 


nS626: 


A C P ff t 

.ASCII 


y V A A . M t 


till 

2212 


A1 V7C^ 

013756 


Ay T 

043 












2213 


013757 


Ay c 

045 


Ay 1 1 A/ 

041104 


A1AA71 

020072 


Mr ^^17 . 

HSG27: 


A f* P t t 

.ASCII 


y ir A A . MM 

/ZDS: #/ 


111/ 

2214 


013764 


Ay T 

043 












221 5 


A1 C 

0^3765 


Ay c 

045 


Ay 71 1 1 

0471 1 1 


ACII 1 1 

0521 1 1 


nSG28: 


A C P ff t 

.ASCI I 


/ZINIT DID NOT CLEAR RH 


1 H A 

2216 


A1 V771 

01 3 '72 


Ay lAy A 

042040 


Ay 1111 

0421 1 1 


Ay 7Ay A 

047040 








2217 


A4 / AAA 

014000 


AC 11 1 7 

052117 


Ay 1 y y A 
041440 


Ay ic 1 y 

042514 








2218 


A1 / AA^ 

014006 


AC1 1 AI 

051101 


AC1 Ay A 

051040 


A1A1 1 A 

020110 








2219 


014014 


Ay T 
043 












2220 


A1 / A1 C 

01401 5 


Ay c 
045 


Ay 1 C1T 

041523 


Ay 7Ay A 

04r040 


nSG29: 


A C P f f 

.ASCI I 


y tf C P AI A T BrCCT Am ffeItT 

/ZSC NOT RESET BY INIT 


2221 


At y All 

014022 


AC 1117 

052117 


AC 1 Ay A 

051040 


AC1 CAC 

051 505 








2222 


A1 y ATA 

014030 


AC11 AC 

052105 


Ay 1 Ay A 
041040 


A1A1 71 

020131 








2223 


A1 y ATX 

014036 


Ay 71 1 1 

04 rill 


AC 11 1 1 

052111 


Any y A 
021440 








2224 


Ai y A/ / 


AC lAy c 

052045 


Ay ic 1 1 

042522 


Ay 7Ay A 
04^040 


MC/" VA - 

nS630: 


A P P f f 

.ASCII 


y W TAP AlAT nCPCT Am tAlfT 

/ZTRE NOT RESET BY INIT 


Hie 


A1 / AC1 


AC11 1 7 

0521 1 7 


AC1 Ai A 

051040 


AC1 CAC 

051505 








111A 
2226 


A4 / AAA 

014060 


Ad4 AC 

052105 


Ay 1 t\i A 

041040 


A1A1 VI 

020131 








111^ 
2227 


Ai y f\d.d. 

014066 


Ay 71 1 1 
0471 1 1 


AC 1111 

052111 


All y y A 

021440 








1 11* 


Ai y A7y 
0140f * 


Ay 1 y y c 
0414h5 


A71 1 17 

031 123 


Ay 7Ay A 
047040 


nSG31 : 


A C ^ f f 

.ASCII 


/ZCS2 NOT RESET BY INIT 


1 1 in 

2229 


Ai y 1 A1 
014102 


AC 1117 

0521 1 1 


AC1 Ay A 

051040 


AC 1 CAC 

051505 








1 1TA 

2230 


Ai y 1 i A 
0141 10 


AC 11 AC 

052105 


Ay 1 Ay A 
041040 


A1A1 71 

020131 








11T1 

2231 


Ai y 1 1 X 

0141 16 


Ay 71 1 1 

0471 1 1 


AC 11 1 1 

052111 


All y y A 

021440 








11T1 

2232 


Ai y 1 iy 
014124 


Ay lAy C 

042045 


AC 11 1 y 

052114 


Ay 7Ay A 

047040 


nSG32: 


A f* ^ ff V 

.ASCII 


yVAi T AlAT PP T Ml 

/ZDLT NOT SET #/ 


2^33 


A1 y 1 T1 
014132 


AC 11 1 7 

05211 7 


AC1 y y A 
0514^0 


ACII AC 

052105 








2234 


Ai y 1 y A 
014140 


All y y A 
021440 












2233 


01%142 


051445 


A1A1 A7 

02010? 


Ay 7C1 X 

047516 


Mcy*77 . 

nSG33: 


A P P ff t 

.ASCI I 


y W P P AlA T PPT My 

/ZSC NOT SET #/ 


11 vx. 
2236 


A1 y 1 CA 

0141 50 


A1A1 iy 
020124 


Ay iei7 
042523 


A1A1 iy 

020124 








1117 

2257 


A1 y 1 CA. 

0141 56 


Ay T 
043 












CCJO 












. AoL 1 1 


/VTDC kinT CCT if/ 
/*IKC NUI oC 1 «/ 


2239 


014164 


047516 


020124 


042523 








2240 


014172 


020124 


043 










2241 


014175 


045 


051111 


047040 


NSG35: 


.ASCII 


/ZIR NOT SET BY INIT #/ 


2242 


014202 


052117 


051440 


052105 








2243 


014210 


041040 


020131 


047111 








2244 


014216 


052111 


021440 











Tn02/TU45 BASIC FUNCFION TEST 
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NACY11 30(10A6) 



2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2252 

2254 

2255 

2256 

2257 

2258 

2259 

2260 

2261 

2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 

2281 

2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 

2300 



014222 
014230 
014236 
014244 
014251 
014256 
014264 
014272 
014300 
014306 
014310 
014316 
014324 
014332 
014340 
014342 
014350 
014356 
014362 
014370 
014376 
014404 
014412 
014415 
014422 
014430 
014436 
014444 
0U452 
014457 
014464 
014472 
014474 
014502 
014510 
014516 
014523 
014530 
014536 
014543 
CU550 
014556 
014564 
014572 
014576 
014604 
014612 
014620 
0U622 
014630 
014636 
014644 
0U647 
014654 
014662 
OHhlO 



047445 
020124 
020124 
044516 

045 
052117 
052105 
020061 
042440 
021440 
047445 
020124 
054502 
020117 
021440 
041045 
046111 
042101 
044445 
020124 
020124 
046111 
046114 

040 
054105 
051104 
047040 
044530 
040514 

040 
046101 
021440 
042445 
044040 
047111 
052101 

045 
020113 
044522 

045 
020105 
050040 
052111 
047117 
0:^1445 
020120 
020105 
021522 
051445 
043040 
042122 
051117 

045 
020105 
051522 
0t,7522 



020122 
042522 
054502 
020124 
051117 
051040 
041040 
044523 
052116 

020122 
042523 
051440 
052506 

042101 
020117 
021440 
020122 
042522 
054502 
020117 
043 
047516 
051511 
053111 
047117 
052123 
042526 
042523 
047040 

040522 
040505 
050117 
053111 
044103 
047520 
054524 
051105 
042510 
046117 
020131 
021507 
052105 
051127 
051105 

040520 
051117 
042440 
043 
050123 
042522 
020105 
021522 



047516 
042523 
044440 
043 
047040 
051505 
020131 
047514 
054522 

047516 
020124 
046111 
046114 

051440 
042522 

047516 
042523 
051440 
052506 

026516 

020124 
021505 
042455 
051440 
043 
044522 
035117 

042523 
020104 
051105 

105 
041505 
040514 

043 
051501 
042101 
051101 
051127 

052455 
052111 
047522 

042503 
040527 
051122 

041501 
042526 
051105 



NS636: 



HS637: 



J 5 
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.ASCII /XOR NOT RESET BY INIT «/ 



.ASCII /ZOR NOT RESET BY 1 SILO ENTRY #/ 



SEQ 0061 



NS638: 

nSG39: 
nS640: 

NS641 : 
nSG42: 
nSG43: 
HSG44: 



NSG45: 



HSG46: 



.ASCII /XOR NOT SET BY SILO FULL #/ 



.ASCII /XBAD SILO READ #/ 



.ASCII /XIR NOT RESET BY SILO FULL#/ 



.ASCII / NON-EXIST DRIVE#/ 



.ASCII / NON-EXIST SLAVE#/ 



.ASCII / SERIAL NO: #/ 



.ASCII /ZERASE HEAD INOPERATIVE/ 



.ASCII /ZCHECK POLARITY*/ 



.ASCII /ZERASE HEAD POLARITY URONG#/ 



.ASCII /ZSET-UP WRITE ERROR#/ 



nSG47: .ASCII /ZSPACE FORWARD ERROR#/ 



nSG48: .ASCII /ZSPACE REVERSE ERROR'/ 



TH02/TU45 BASIC FUNCTION TEST 
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HACYll 30(1046) 



K 5 
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SEQ 0062 



C JV 1 






O^^l 75 










CjvC 


01^707 


n^7S77 


07010^ 

Ucw 1 


051 177 










01^710 


ns?i 1 1 


07010S 


051 105 










ni^71A 
U 1 H f 1 O 


0^75?? 

UH f JCC 


071 577 










C JvJ 




n^io^s 

UH 1 wM J 


0571 1 7 






k'st I I 
• n J V i 1 


/tBOT ^FT AFTFR RllFFFRFD URITFl/ 


c jvv 


ni47'^0 


057105 


0404^0 


057106 

w JC 1 vO 










Q1A7T6 
w 1 r 


Q5110S 


041040 


043175 








C J VO 


014744 


047506 


047522 


020104 

wC w 1 vt 








C JVw 


01475? 


051177 


0571 1 1 

U JC 1 1 1 


071505 

wC \ J\s J 








c J I V 


0K760 


047045 


0701 17 

wCw 1 1 r 


047507 

V~ ■ JVC 




ASC I I 


/XNO BOX FROM READ IN PRESET^/ 


2311 


014766 

W 1 ~ ' WW 


070174 


051 106 

W J 1 1 WW 


04651 7 








2312 


014774 


051040 


040505 

w*tw Jw J 


020104 

wC V V v*t 








2313 


015002 


047111 

W~ rill 


050040 

w J WW~ w 


042522 

V^C JCC 










01 5010 


047523 


071524 

wC 1 JC *v 










2315 


015014 




020103 

wC V 1 V J 


0471 1 1 

W~ rill 


NS657 • 


ASCI I 


/ZTC INCORRECT #/ 


c ^ 1 w 


015022 


047503 


051 It*? 


041505 

w"* 1 JV J 








2317 


015030 

V I ^W 


020124 


043 










2318 


015033 


045 


046123 

W~W 1 C J 


053101 

V J J 1 V 1 


HSG53- 


ASCI I 


/ZSLAVE NOT OFF LINEf/ 


2319 


015040 

W 1 J w 


020105 

WCV 1 V ^ 


047516 

V~ • ^ 1 W 


020124 

WCW 1 c~ 








2320 


015046 

W 1 ^W~W 


043117 


020106 

WCV 1 vw 


044514 

W~~ J I ~ 








2321 


015054 


042516 

W^ C ^ I w 


043 










2322 


015057 


045 

W^ V 


051045 

V J 1 V^ V 


051505 

V^ I JyS J 




ASCI I 


/ZZRESET SLAVE TO ON LINE BEFORE CQNTINUINGf/ 


2323 


01 S064 

W 1 ^ ww~ 


052105 


051440 

V ^ I ~ ~ w 


040514 

V~ V ^ 1 ~ 








2324 


015072 


042526 


052040 

W JC w~w 


020117 

VCV 1 1 V 








2325 


015100 


047117 

W~ f 1 1 f 


046040 

w~ W V^ V 


047111 

V^ fill 








2326 


015106 


020105 


042502 

V^ C WC 


047506 

W~ f ^ VV 








2327 
2328 


015114 


042522 


041440 


047117 








01S122 


044524 


052516 


047111 








2329 


015130 


021507 

Vfc I ^ V f 












2330 


015132 


047045 


055122 


047440 


nSG55: 


ASCII 


/XNRZ ONLY: #/ 


2331 


015140 


046116 

W~W 1 1 w 


035131 


021440 

Vb 1 ^^W 








2332 


015146 


044440 


042524 

V~b L ~ 


035122 


NSG56: 


ASCI I 


1 ITER: #/ 


2333 

J J J 


015154 


021440 












2334 


015156 

V 1 ^ ■ ^W 


052045 


020115 

VC V ■ ■ ^ 


047516 

V~ f 1 w 


HSG57: 

n«# w^ f • 


ASCII 

■ n iJ V A A 


/ZTH NOT SET#/ 


2335 

C J J J 


015164 


020124 


042523 

v~ c ^ 


021524 

VC < <^c~ 








2336 


015172 

W 1 ^ 1 ■ b 


042445 


052111 

V^ b 1 1 1 


042510 


NSG60 : 

rlwWWW ■ 


ASCII 


/ZEITHER TAPE NOT ERASED OR OPI PROBLEI^/ 

/nbAi>*k'« i^ik nwi binwkir w* wi a ■ ■* wwk k in' 


2337 


015200 


020122 


540524 

v~ W^ t ^ 


042520 








2338 


015206 


047040 


052117 

V ■ If 


042440 








2339 


015214 


040522 


042523 


020104 

W t W 1 W~ 








2340 


015222 


051117 

\* J 1 1 1 r 


047440 


044520 

V^^ J C V 








2341 


015230 


050040 

W ^ WW" w 


047522 


046102 

W~ W 1 Vfc 








2342 


015236 


046505 


043 










2343 


015241 


045 


044122 


030461 


nSG61 : 


.ASCII 


/XRH11 OR RH70: #/ 


2344 


015246 


047440 


020122 


044122 








2345 


015254 


030067 


020072 


043 








2346 


015261 


045 


044122 


047440 


nS662: 


.ASCII 


/XRH ONLY: #/ 


2347 


015266 


046116 


035131 


021440 








2348 

















TH02/TU45 BASIC FUNCTION TEST 
CZTUJA.P11 07-JUN-78 16:58 



HACY11 30(1046) 13-JUN- 



2349 












•TEST HE/ 




2350 
















2351 


01 5274 


022445 


0S2106 

W C 1 W 


03S061 

V J ^ W 1 


NSFT1 : 


ASCII i 


^XXFT1:RH ADDRESSING #/ 


2352 


015302 

W 1 ^ JVC 


044122 

w*t^ ICC 


040440 


042104 








2353 


015310 


042522 


051523 


047111 

V~ fill 








2354 


015316 


020107 

VC V IV' 


043 










2355 


015321 


045 

V~ J 


043045 


031124 

\S J \ 1 c^ 


NSFT2: 


ASCII 


^ZXFT2:RH REGISTER BITS TEST 


2356 


015326 


051072 

V J ■ V > c 


020110 

VC V 1 1 V 


042522 








2357 


015334 


044507 


052123 

V J C 1 C J 


051105 








2358 


015342 


041040 


052111 

V JC 1 I 1 


020123 








2359 


015350 


042524 


052123 


021440 








2360 


015356 


022445 


052106 


035063 


NSFT3: 


.ASCII 


^XXFT3:RH INITIALIZE TEST 


2361 


015364 


044122 


044440 


044516 








2362 


015372 


044524 


046101 


055111 








2363 


01 5400 


020105 

Vfc V • w 


042524 


052123 

v^w ■ w ^ 








2364 


015406 


021440 












2365 


015410 


022445 


052106 


035064 


nSFT4: 


.ASCII 


^XXFT4:RH11 SILO TEST 1 #/ 


2366 


015416 


044122 


030461 


051440 








2367 


015424 


046111 


020117 


042524 








2368 


015432 


052123 


030440 


021440 








2369 


015440 


022445 


052106 


035065 


NSFT5: 


.ASCII 


^XXFT5:RH11 SILO TEST 2 #/ 

W iV ■ ■ ^ * ■! fill v A ^ %m ■ W w V ^ WW w 


2370 


015446 


044122 


030461 


051440 








2371 


015454 


046111 


020117 


042524 








2372 


01 5462 


0^2123 


031040 


021440 








237* 


015470 


022445 


052106 


035066 


NSFT6: 


.ASCII 


^ZXFT6:RH11 SILO TEST 3 #/ 


2374 


015476 


044122 


030461 


051440 








2375 


015504 


046111 


020117 


042524 








2376 


015512 


052123 


031440 


021440 








2377 


015520 


022445 


052106 


035067 


NSFT7: 


.ASCII 


^XZFT7:RH11 SILO TEST 4 #/ 


2378 


015526 


0<i41 22 


030461 


051440 








2379 


015534 


046111 


0201 1 7 


042524 








2380 


015542 


052123 


032040 


021440 








2381 


015550 


022445 


052106 


030061 


NSFTIO: 


.ASCII 


^XZFT10:RHll SILO TEST 5 #/ 

W is ■ ■ ■ « n ill 1 1# • ^» %m 1 W w 1 ^ WW w 


2382 


015556 


051072 


030510 


020061 








2383 


015564 


044523 


047514 


052040 








2384 


015572 


051505 


020124 


020065 








2385 


015600 


043 












2386 


01 5601 


045 


043045 


030524 


NSFT11 : 


.ASCII 


^ZZFTlltNOP TEST#/ 


2387 


015606 


035061 


047516 


020120 








2388 


015614 


042524 


052123 


043 








2389 


015621 


045 


043045 


030524 


nSFT12: 


.ASCII 


^ZZFT12:REUIND TEST#/ 


2390 


015626 


035062 


042522 


044527 








2391 


01 5634 


042116 


052040 


051505 








2392 


015642 


021524 












2393 


015644 


022445 


052106 


031461 


nSFT13: 


.ASCII 


^XZFT13:URITE-REA0 TEST#/ 

W is III ^ V ■« A i W 1* W w «1F i W ^ ■ ■* V 


2394 


015652 


053472 


044522 


042524 








2395 


01 5660 


051055 


04050*^ 


020104 








2396 


01 5666 


042524 


052123 


043 








2397 


015673 


045 


043045 


030524 ' 


NSFT14: 


.ASCII 


^ZXFT14:SPACE TEST#/ 


2398 


015700 


035064 


050123 


041501 








2399 


015706 


020105 


042524 


052123 








2400 


015714 


043 












2401 


015715 


045 


043045 


030524 


nSFT15: 


.ASCII 


aXFT15:ERASE TEST*/ 


2402 


015722 


035065 


051105 


051501 








2403 


015730 


020105 


042524 


052123 








2404 


015736 


043 













L 5 
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SEQ 0063 



M S 
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Vljfjf 


Uh7 




U JV JCl 


nor 1 1 0 • 


A^ril /XtFTIA-TAPF MARK URITF-RFAD TF^T#/ 


chUO 




U J jUOO 


UHU Jc*» 


UHc Jew 






C'*Uf 


ni ^7^7 


UtOHHU 


U J 1 1 U 1 


0701 1 

UCU 1 1 J 






CHUO 


Ul }f ou 


nsi 1 77 

U7 1 1 c' 


U7c 1 1 1 


07AS0S 

WCO JU J 








U 1 3 f 00 


n£7S77 
UHC7CC 


UHC 1 V 1 


0^70^0 

U JC v*»U 






1 U 


A1 ^77^ 


\lj 1 7w7 


071 ^7i 
Uc 1 JCH 






ASCII /11FT17-TH SPACE TEST #/ 


CH 1 1 


U 1 ouuu 


UCCHH7 


U JC 1 uo 




n^r III* 


cH 1 c 


U 1 OvVO 


nS7077 


0701 1 5 

wC V 1 1 J 


0S0173 

V Jv 1 C J 






C*« 1 J 


U 1 Ov 1 H 




0701 OS 

UCw 1 V J 


VIC jct 








m An77 

U 1 OUCC 


n^7i 7T 

W JC 1 Cj 


071^^0 

Uc 1 HHU 






ASCII /XZFT20-URITE CHECK TEST M/ 


3i1 ^ 

cH 1 3 


fli An7A 
U 1 OUCO 


UccHH J 


0^71 OA 
V JC 1 wo 


030062 

V J WWC 


NSFT70- 

rur 1 cv • 






W J Jt 1 c 


0^&S77 

UHH jCC 


047574 

w"IC JC"t 






?i1 7 


U 1 OU*IC 


Ut 1 w 


0^7S10 

V*tC J 1 V 


w"f J JVJ 






7^111 






OS1505 


070174 

wCV 1 C*t 






c"» 1 ~ 


















OAS 




031124 


NSFT21 ■ 


ASCII /XZFT21 :ERASE HEAD TEST#/ 




016M4 

V 1 w W"t 


03S061 


051105 


051501 

V J ■ JV ■ 








01A077 

V lOVi C 


070105 

wC V 1 VJ 


04PS10 

v*tC J I w 


042101 






etc J 




0S70&0 

V JC v*tv 




021524 






?4?A 


016106 

V ■ U I WW 


022445 


052106 


031062 

V J ■ www 


nSFT22: 


.ASCII /XXFT22:BUFFERED COHNAND TEST#/ 


74?S 
etc J 


016114 


041072 


043125 


042506 






7476 


016122 


042522 


020104 


047503 








016130 


046515 


047101 


020104 

Vw V ■ 








01 61 ^6 




052123 


043 

V~ J 






?4?9 


016143 


045 


043045 


031124 

v^ ■ 1 w ~ 


nSFT23: 


.ASCII /XXFT23:READ IN PRESET TEST#/ 


2430 


016150 


035063 


042522 


042101 






2431 


016156 


044440 


020116 


051120 






2432 


016164 


051505 


052105 


052040 






2433 


016172 


051505 


021524 








2434 


016176 


022445 


052106 


032062 


nSFT24: 


.ASCII /XXFT24:REUIND-0FF LINE TEST#/ 


2435 


01 6204 


051072 


053505 


047111 






2436 


016212 


026504 


043117 


020106 






2437 


016220 


044514 


042516 


052040 






24 38 


016226 


051505 


021524 








2439 














2440 














2441 












.EVEN 


2442 


01">32 


000000 






UDATA: 


0 


2443 




017744 








.=.♦1510 


2444 


017744 


000000 






RDATA: 


0 


2445 














2446 




000001 








.END 



N 5 
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r7Tll lA 


P1 1 07 




^VMROI 
o 1 nDwU 


TABLE 














no 


wwwu 1 u 


FRRP 

C n n r 


000714 

www f 1 "f 




FT16A 


006516 


FT4ER 


003624 


PISFT22 


016106 


RA 


wwwOwt 


FRRP1 


000716 

WW f 1 w 




FT16B 


006522 


FT4ERA 


003634 


HSFT23 


016143 




www f w"V 


C A C U 


010626 

w 1 wwC w 




FT16X 


006716 


FT4ERB 


003644 


nSFT24 


016176 


RTRP 


wwwOOC 




010700 

W 1 W f WW 




FT17 


006726 


FT4ERC 


003652 


NSFT3 


015356 


RTRP? 


00066A 

wwwOOM 


C AC 


010706 

w 1 w f WW 




FT17A 


006746 


FT4X 


003614 


nSFT4 


015410 




000620 

wwwOC w 


C AC L L 


010726 

V 1 V 1 c w 




FT17B 


006752 


FT5 


003670 


NSFTS 


015440 


CRCNT 


001002 

WW 1 wwC 


C A C W A 


010746 

W i W f ^ w 




FT17C 


007112 


FT5A 


003712 


nSK6 


015470 




000610 

wwwW 1 w 


C A C W An 


010752 

V 1 V f V c 




FT170 


007162 


FTSB 


003740 


NSFT7 


015520 


CI 


000600 

w VwWww 


C n t W A A 


010756 

V 1 V f vw 




FT1701 


007200 


FT5C 


003762 


NS61 


013146 


DATAO 


001022 

WW 1 wCC 


c A r u 


000766 

WW f WW 




FT17E 


007214 


FT50 


004012 


NSG1C 


013463 


DATAI 


001 02A 


f c 


000606 

WWW 




FT17F 


007306 


FT5E 


004024 


MSG11 


013503 


DATA? 


001026 

WW 1 vC w 


FCNT 


000706 

V W' f w 




FT17X 


007336 


FT5ER 


004062 


nSG12 


013523 


DATA^ 


001030 

WW 1 w Jw 


FT1 


002700 

WC 1 vv 




FT2 


003000 


FT5X 


004052 


nSG13 


013541 




001020 

WW 1 vCw 


FTIA 

r 1 1 w 


002732 

WC f 




FT2A 


003012 


FT6 


004072 


NSG14 


013566 


DAT1 


01 1 552 

w 1 1 ^ ^ C 


FT1B 

r 1 1 D 


002736 

WC ' aPW 




FT2B 


003052 


FT6A 


004114 


nSG15 


013613 


DAH A 

vn tin 


011556 


FTlX 

r 1 1 A 


002750 

WC f ^v 




FT2C 


003112 


FT6B 


004122 


nSG16 


013634 


DAT1B 

vn 110 


011562 


FTIXX 

r 1 1 A A 


002774 

WC f f ^ 




FT20 


003126 


FT6C 


004160 


nSG17 


013654 


DAT2 


01157A 


FT10 

1 1 1 V 


004450 

V V^ ^ ^ V 




FT2E 


003156 


FT6D 


004202 


nsG2 


013234 


DAT3 


01 1602 

W 1 1 wc 


FT10A 

III \in 


004504 

V V^ ^ W^ 




FT2ER 


003170 


FT6DE 


004244 


nSG20 


013674 


DATA 


01 1612 


FT10ER 

III VL r\ 


004570 

vv^ ^ • w 




FT2ERA 


003220 


FT6DEA 


004276 


nsG2i 


013702 


DATAA 


01 1620 

w 1 1 UCw 


FT10X 

III wA 


004546 

W^ ^ ^ w 




FT2ERB 


003272 


FT6DEB 


004342 


nSG22 


013707 


DB 

1/0 


000622 

WWWC c 


FT10XX 

f 1 1 V A A 


004564 




FT2ERC 


003302 


FT6DEX 


004352 


nSG23 


013717 




012736 


FT1 1 


004604 

w ~ w w^ 




FT2X 


003312 


FT6E 


004204 


nSG24 


013727 


DOUTD 

t/W 1 1/ 


013020 

W 1 ^Wb w 


FT12 

■ lib 


004722 

W^ f b b 




FT20 


007342 


FT6ER 


004234 


nSG25 


013743 


D0UT1 

L/W ■ 1 


012752 


FT12A 


005002 

W<^ WVb 




FT20A 


007420 


FT6X 


004224 


nSG26 


013751 


D0UT2 


013000 

V 1 ^www 


FT13 


005034 

w ^ w^^ 




FT20B 


007504 


FT7 


004354 


nSG27 


013757 


L/W 1 ^ 


013006 

W 1 ^w w 


FT13A 


005114 




FT20C 


007536 


FT7A 


004406 


nS628 


013765 


DRVN 


000700 

WWW ( WW 


FT13B 

III ^0 


005156 




FT20X 


007572 


FT7ER 


004434 


nSG29 


014015 


DRVTP 


000652 

www ^ b 


FT13C 


005236 




FT21 


007602 


FT7X 


004424 


nsG3 


013252 


k/ w 


000612 

WWWW 1 b 


FT130 


005304 




FT21A 


007740 


FUN 


000776 


nSG30 


014044 


DSAV 

1/ W 


000752 

WW f 


FT13E 


005356 




FT21X 


010074 


HDRFL 


000674 


nSG31 


014074 


DSUP 

k/ V Wr 


011460 


FT13X 


005370 




FT22 


010104 


INIT1 


011742 


nSG32 


014124 


DSO 


01H62 


FT14 


005374 

wv^ ^ • ^ 




':22A 


010160 


INIT2 


011752 


nSG33 


014142 


DS1 


011502 

W 1 ^Wfc 


FT14A 

III ^n 


005446 

w w 




FT22B 


010200 


ITAHT 


000654 


nS634 


014157 


DS2 


011522 


FT14A1 

ill 1 


005412 




FT22X 


010274 


ITCNT 


000750 


nS635 


014175 


1/ ^ ^ 


011532 


FT14A2 


005542 

WV ^ b 




FT23 


010304 


ITER 


011676 


nSG36 


014222 


DS4 

1/ 


011542 


FT14A3 


005566 

VV ^ ^ WW 




FT23A 


010414 


ITERO 


011710 


nSG37 


014251 




000626 


FT14B 


005622 

VV ^ Wfc 




FT23B 


010434 


ITER1 


011716 


nSG38 


014310 


EMADDR 


000676 

WWW f V 


FT14EC 


006040 

VV W W^ V 




FT23C 


010464 


ITRLP 


000764 


nS639 


014342 


ER 


0006 U 

WWWW 1 ~ 


FT14RE 


006046 

WW w w^ w 




Fr23X 


010520 


LTADD 


000774 


ns64 


013357 


FRADD 


000736 

www ( ^W 


FT14RF 


006012 

VVWV 1 




FT24 


010524 


HR 


000624 


nS640 


014362 


ERCHK 


011056 

W 1 1 W^W 


FT14RR 


005750 

VV^ • ^ V 




FT24A 


010560 


nSFTI 


015274 


nS641 


014415 


ERPT 


011102 

will Wfc 


FT14R0 


006120 

WW 1 fcV 




FT24X 


010612 


nSFTIO 


015550 


nS642 


014436 


ERPTA 


011172 

W 1 1 1 ( 


FT14R1 


006142 

WW 1 ~ 




FT24XX 


010622 


nSFTII 


015601 


nS643 


014457 


ERPTA1 


011124 

Will b~ 


FT14R2 


006146 

W VW 1 ^ w 




FT3 


003324 


nSFT12 


015621 


nS644 


014474 


L n r 10 


011230 

W 1 1 ^ aPW 


FT14R3 

1 1 1 ^ n ^ 


006220 

VWWC b V 




FT3A 


003400 


HSFT13 


015644 


nSG45 


014543 


FRPTB1 

L > 10 1 


011242 

VI 1 b ^ b 


PTUX 

I 1 1 ^ A 


006230 

V WW L J\M 




FT3B 


003422 


MSFT14 


015673 


nSG46 


014576 


FRPTC 


011272 

VI 1 b ( b 


FT14XX 

1 1 1 ^ A A 


006260 

WWb W V 




FT3ER 


003460 


HSFT15 


015715 


nSG47 


014622 


ERPTD 


01U02 


FT15 


006264 




FT3ERA 


003512 


MSFT16 


015737 


nSG48 


014647 


ERPT6 


011132 


FT15A 


006334 




FT3ERB 


003522 


HSFT17 


016000 


MSG49 


014674 


ERPTX 


01U12 


FT15B 


006350 




FT3ERC 


003532 


HSFT2 


015321 


nSG5 


013402 


ERPTXX 


01U16 


FT15X 


006<>60 




FT3X 


003450 


MSFT20 


016026 


nSG50 


014722 


ERPT1A 


011224 


FT16 


006464 




FT4 


003542 


HSFT21 


016057 


MSG51 


014760 



SEQ 0065 



Tn02/TUAS BASIC FUNCTION 


TF^T 


MACY11 30(1046) 


13-JUN-78 

1 ^ w wn • w 


CZTUJA.P11 07-JUN-78 


1 w • 


SYMBOL 


TABLE 


nsG52 


01 5014 




01 ?734 


SCOLP 


nSG53 


015033 




000726 


SCOPE 


nsGSA 


015057 


PATRN 


001006 

w 1 www 


SC0PE1 


nsGSS 


015132 


PCNTR 


001016 

WW 1 W 1 w 


SC0PE2 


nSGS6 


015U6 


PFXFL 


000770 

WWW r r w 


SERFL 


HSGS7 


015156 


PFLG 


000732 

WWW r 


SERNUN 


nsG6 


013415 


PSU 


000634 

w w w w 


SLVN 


nSG60 


015172 


ftCNT 


000712 

www ' I L 


SN 


nSG61 


015241 


RDATA 


017744 


SNPG 


••-662 


015261 


RDYDX 


000724 

WWW ' w ~ 


SNPT 




013433 


RFGS 


000660 

W W W W w w 


START 


•tSGO 


013437 


RFD 


000722 

WWW r b 


STFL6 


1SG9 


013441 


RHOF 


001014 


STHSK 


HTINT 


011770 


RNTF 


001010 

WW 1 W 1 w 


STSCD 


NRZOF 


001012 


RH17F 


000672 

W W W W > L 


STO 


OCTP 


012516 


RRD 


000720 

W W W f w 


STOA 


OCTPE 


012504 


RTRN 


000734 


STOB 


0CTPE1 


012522 


RUNO 


010760 


STl 


OCTPG 


012672 


RUNDA 


011000 

W < 1 w w w 


ST1 A 


OCTPGO 


012710 


RUNDB 


011004 


ST2 


0CTPG1 


012714 


RUNDX 


011050 


ST3 


OCTPO 


012536 


SAV1 


000754 


ST4 


0CTP1 


012560 


SAV2 


000756 


SWR 


0CTP2 


012566 


SAV3 


000760 


TC 


0CTP3 


012656 


SCNT 


000730 


TCRLF 



. ABS. 017746 000 



ERRORS DETECTED: 0 

,C2TUJA.SEQ/S0L CZTUJA.P11 
RUN-TIME: 14 28 2 SECONDS 
RUN-TIHE RATIO: 167/45=3.6 
CORE USED: 5K (10 PAGES) 



B 6 
13:49 PAGE 67 

SEQ 0066 



000762 ICRLFA 012436 TSCDl 002476 

011634 TEHPl 000740 TSCD2 002522 

011650 TE«P2 000742 TSCD3 002536 

011662 TEMPS 000744 TSRH 002434 

001000 TEND 002636 TSTTBL 001032 

000650 TENDX 002670 TTIN 012314 

000702 TEX 012502 TTINT 012004 

000630 TIB 000670 TTINl 012334 

013122 TINER 012276 TTIN2 012350 

013044 TKB 000642 TTOUT 012366 

001600 TKS 000640 TTR 012130 

000772 TMCHK 011420 TTRO 012136 

000746 TMCHKO 011430 TTRl 012164 

002562 TMCHK1 011432 TTRl A 012200 

001774 TOB 000666 TTR1B 012214 

001624 TOG 012466 TTR2 012252 

001634 TPB 000646 TTR3 012262 

002016 TPS 000644 TTR4 012272 

002036 TRAP 012014 TTR5 012274 

002134 TRAPX 012076 UDES 001004 

002234 TRAPXX 012124 VECT 000656 

002406 TRAP1 012050 WC 000602 

000636 TRAP2 012066 UCNT 000710 

000632 TSCD 002412 VDATA 016232 

012420 TSCDO 002442 . = 017746 



